Activity 8

prepared by the Computers and Calculators Class

Mathematica Versions of the code

Table[x, {x, 3, 15, 3}]

Table[3  x,  {x, 1, 5}]

Table[x + 3,  {x, 0, 12, 3}]

Table[((((Sqrt[3  n])))^2),  {n, 1, 5}]

Table[20 - n, {n,  17, 5, -3}]

Comments and Extensions

Reverse[Table[20 - n, {n,  5, 17, 3}]]

Range[3, 15, 3]

Select[Range[15], Mod[#, 3] == 0 &]