OFFSET
1,1
MATHEMATICA
Table[If[PrimeQ[n], 2*n, 3*n], {n, 1, 200}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 04 2009
STATUS
approved