A124291 Largest prime < 10*a(n-1), a(1)=7.
7, 67, 661, 6607, 66067, 660661, 6606581, 66065773, 660657713, 6606577129, 66065771269, 660657712667, 6606577126663, 66065771266577, 660657712665739, 6606577126657373, 66065771266573693, 660657712665736927, 6606577126657369171, 66065771266573691611, 660657712665736916107
Offset: 1
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..200
Crossrefs
Cf. A124262.
Programs
-
Mathematica
NestList[NextPrime[10 #, - 1]&, 7, 30] (* Vincenzo Librandi, Jun 28 2014 *)