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,1

Links

Table of n, a(n) for n=0..18.

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

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

Sequence in context: A196925 A246865 A133237 * A341088 A207978 A307246

Adjacent sequences: A099657 A099658 A099659 * A099661 A099662 A099663

Keyword

base,nonn

Author

Labos Elemer, Nov 17 2004

Extensions

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

Status

approved