OFFSET
1,2
MATHEMATICA
(*1*)Flatten[Table[{k, Prime[k+2]}, {k, 1, 200, 4}]]
(*2*)s={1}; a=1; Do[AppendTo[s, {Prime[a+2], a=a+4}], {100}]; Flatten[s]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jul 24 2010
STATUS
approved