OFFSET
1,1
MATHEMATICA
Flatten[Table[Range[NextPrime[10^n, -1]+1, NextPrime[10^n]-1], {n, 5}]] (* Harvey P. Dale, Nov 03 2011 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Jul 19 2005
STATUS
approved