OFFSET
0,2
MATHEMATICA
p = 2; Join[{1}, Table[p = p*Prime[PrimePi[10^n] + 1], {n, 9}]] (* Jayanta Basu, Jun 24 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jul 15 1998
EXTENSIONS
Corrected by Jayanta Basu, Jun 24 2013
STATUS
approved