[go: up one dir, main page]

login
A132358
a(n) = greatest prime <= 2^(2^n).
0
2, 3, 13, 251, 65521, 4294967291, 18446744073709551557, 340282366920938463463374607431768211297, 115792089237316195423570985008687907853269984665640564039457584007913129639747
OFFSET
0,1
MATHEMATICA
a={}; For[n=0, n<10, n++, b=2^(2^n); While[ !PrimeQ[b], b=b-1]; AppendTo[a, b]]; a (* Stefan Steinerberger, Nov 12 2007 *)
If[PrimeQ[#], #, NextPrime[#, -1]]&/@(2^(2^Range[0, 10])) (* Harvey P. Dale, Jul 01 2020 *)
CROSSREFS
Cf. A132198.
Sequence in context: A376058 A270403 A119564 * A090100 A270314 A132484
KEYWORD
nonn
AUTHOR
Leroy Quet, Nov 08 2007
EXTENSIONS
More terms from Stefan Steinerberger, Nov 12 2007
STATUS
approved