OFFSET
1,2
MATHEMATICA
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; Table[ NextPrim[(10^n - 1)/9] - (10^n - 1)/\ 9, {n, 70}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jul 12 2004
STATUS
approved