1+2

2^4+3*7

1/3!+1/5

Sin[Pi/4]

I^2

yy=(125*24)/(74*15)

N[Exp[1]]

N[Exp[1],30]

z=(x+a)*(x-a)+yy

Expand[z]

f[x_]:= x^3*Exp[x]

42+f[x^2]

Plot[Sin[x],{x,0,3}]

Plot[Abs[x],{x,-3,3}]

Plot[x*Exp[x],{x,-2,2},PlotStyle->Blue]

Plot[{f[x],f[-x],Abs[f[x]]},{x,-1,1}]

Plot3D[Sin[x+2*y],{x,-3,3},{y,-3,3}]

D[Sin[x]Cos[x],x]

D[Sin[2 x],x,x,x]

Integrate[1/x,x]

Integrate[Log[x],{x,0,10}]

Integrate[Exp[-3 x],{x,0,Infinity}]

u={1,2,3}
v={3,5,7}

u.v

A={{1,0,0},{0,2,0},{-1,0,3}}

%//MatrixForm

A.u

Needs["VectorAnalysis`"]

CrossProduct[u,v]

%.v

Inverse[A]

%//MatrixForm

%.A

%//MatrixForm

Table[Prime[i],{i,1,100}]

Sum[1/k!,{k,1,20}]

Product[n^2,{n,1,5}]

Table[N[Sum[1/k!,{k,0,n}],17],{n,1,20}]

D[x^5+3*x^4,{x,3}]

Expand[Exp[x^2] D[Exp[-x^2],{x,6}]]

D[Exp[-x^2],{x,3}]/.{x->0}

Table[D[Exp[-x^2],{x,n}]/.{x->0},{n,1,23}]