OFFSET
1,1
MATHEMATICA
With[{ls={2, 3, 5, 7}}, Join[ls, NextPrime/@Flatten[Table[10^n*ls, {n, 10}]]]] (* Harvey P. Dale, Jul 05 2012 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Nov 09 2005
EXTENSIONS
More terms from Ben Ross (bmr180(AT)psu.edu), Jan 29 2006
STATUS
approved