A115983 Apocalypse primes: 10^665+a(n) has 666 decimal digits and is prime.
123, 1837, 6409, 7329, 8569, 8967, 9663, 13213, 14943, 16299, 17053, 17857, 22611, 24601, 25261, 25729, 27847, 30567, 32413, 33321, 33379, 34257, 34557, 34723, 38097, 39387, 39787, 39889, 39973, 43501, 43719, 44889, 48139, 49587, 53683
Offset: 1
Links
- Robert G. Wilson v, Table of n, a(n) for n = 1..6666
- Brady Haran and Tony Padilla, Interesting 666-digit Numbers, YouTube Numberphile video, 2024.
- Eric Weisstein's World of Mathematics, Apocalypse Number
Programs
-
Mathematica
lst={};a=10^665;Do[If[PrimeQ[a+n], Print[n];AppendTo[lst, n]], {n, 8!}];lst (* Vladimir Joseph Stephan Orlovsky, Aug 30 2008 *) Select[Range[55000],IntegerLength[10^665+#]==666&&PrimeQ[10^665+#]&] (* Harvey P. Dale, Jul 30 2019 *)
Comments