A124298 Largest prime < 10*a(n-1), a(1)=13.
13, 127, 1259, 12589, 125887, 1258847, 12588461, 125884529, 1258845277, 12588452743, 125884527427, 1258845274261, 12588452742583, 125884527425827, 1258845274258259, 12588452742582559, 125884527425825569, 1258845274258255681, 12588452742582556787, 125884527425825567809
Offset: 1
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..200
Crossrefs
Cf. A124262.
Programs
-
Mathematica
NestList[NextPrime[10#, -1]&, 13, 30] (* Vincenzo Librandi, Jun 28 2014 *)