A124361 Largest prime < 1000*a(n-1), a(1)=2.
2, 1999, 1998991, 1998990991, 1998990990979, 1998990990978973, 1998990990978972953, 1998990990978972952981, 1998990990978972952980973, 1998990990978972952980972937, 1998990990978972952980972936953, 1998990990978972952980972936952943, 1998990990978972952980972936952942969
Offset: 1
Keywords
Programs
-
Mathematica
NestList[NextPrime[1000#,-1]&,2,11] (* Harvey P. Dale, Feb 07 2011 *)
Extensions
a(12)-a(13) from Pontus von Brömssen, Jan 15 2025