OFFSET
0,1
EXAMPLE
n=6: 66 is followed by 67.
MATHEMATICA
Table[NextPrime[6*(10^n-1)/9], {n, 0, 35}]
NextPrime/@Table[FromDigits[PadRight[{}, n, 6]], {n, 0, 20}] (* Harvey P. Dale, Feb 25 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Labos Elemer, Nov 17 2004
EXTENSIONS
First Mathematica program corrected by Harvey P. Dale, Feb 25 2015
STATUS
approved