First R

a=p=2
x <- a^p
x
y<- a%%x
y
s=c(a,a, a, a)
t=c(s, s,3,1,s) 
t
t[5:1]
length(t)
id=c(1, 3) 

which((t==3))

factorial(5)
choose(5, 2) 
 b=c(2, 33,4 , 5,7,8,9,10) 
max(b)
min(b)
sum(b)
var(b)
sqrt(b)
b**3