Activity 8

prepared by the Computers and Calculators Class

•Mathematica Versions of the code

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

{3, 6, 9, 12, 15}

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

{3, 6, 9, 12, 15}

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

{3, 6, 9, 12, 15}

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

{3, 6, 9, 12, 15}

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

{3, 6, 9, 12, 15}

•Comments and Extensions

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

{3, 6, 9, 12, 15}

Range[3, 15, 3]

{3, 6, 9, 12, 15}

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

{3, 6, 9, 12, 15}

Converted by Mathematica  (April 17, 2003)