login
A099660
a(n) is the least prime following A002280[n] repdigits.
1
2, 7, 67, 673, 6673, 66683, 666667, 6666679, 66666667, 666666667, 6666666757, 66666666667, 666666666671, 6666666666683, 66666666666737, 666666666666719, 6666666666666719, 66666666666666713, 666666666666666773
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 *)
KEYWORD
base,nonn
AUTHOR
Labos Elemer, Nov 17 2004
EXTENSIONS
First Mathematica program corrected by Harvey P. Dale, Feb 25 2015
STATUS
approved