OFFSET
1,1
COMMENTS
This sequence contains about 10^662 terms, the last of which is 10^666-1157.
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
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 *)
CROSSREFS
KEYWORD
base,dumb,fini,nonn
AUTHOR
Eric W. Weisstein, Feb 09 2006
STATUS
approved