3 + 8

3^100

N[%]

N[Sqrt[10], 50]

(3 + 4  I)^10

NIntegrate[Sin[Sin[x]], {x, 0, Pi} ]

FactorInteger[34340995094]

Plot[Sin[Exp[x]], {x, 0, Pi}]

Show[%, Frame -> True,  GridLines -> Automatic]

ContourPlot[Sin[x + Sin[y]], {x, -2, 2}, {y, -2, 2}]

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

9 (2 + x) (x + y) + (x + y)^2

Expand[%^3]

Factor[%]

Integrate[x^2 Sin[x]^2, x]

D[%, x]

Simplify[%]

Series[%, {x, 0, 14}]

x^3 - 7  x^2 + 3  a x == 0

Solve[%, x]

NSolve[Sin[3  x] == 0.5, x]

DSolve[y''[x] + y[x] == 0, y[x], x]

solution=NDSolve[{y'[x]==Sin[x] y[x],y[1] == 2},y,{x, 0, 10}]

Plot[Evaluate[y[x]  /.  solution], {x, 0, 10}]

Table[n!, {n, 1, 12}]

N[Log[%]]

ListPlot[%]

Fit[%48, {1, x, x^2}, x]