A099660 a(n) is the least prime following A002280[n] repdigits.

2, 7, 67, 673, 6673, 66683, 666667, 6666679, 66666667, 666666667, 6666666757, 66666666667, 666666666671, 6666666666683, 66666666666737, 666666666666719, 6666666666666719, 66666666666666713, 666666666666666773

Offset: 0

Author

Labos Elemer, Nov 17 2004

Keywords

• base
• nonn

Examples

			n=6: 66 is followed by 67.
		

Crossrefs

Cf. A003618, A003617, A096497, A096498, A068104, A002275-A002283, A099656-A099668.

Programs

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 *)

Extensions

First Mathematica program corrected by Harvey P. Dale, Feb 25 2015