A132358 a(n) = greatest prime <= 2^(2^n).

2, 3, 13, 251, 65521, 4294967291, 18446744073709551557, 340282366920938463463374607431768211297, 115792089237316195423570985008687907853269984665640564039457584007913129639747

Offset

0,1

Links

Table of n, a(n) for n=0..8.

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

Adjacent sequences: A132355 A132356 A132357 * A132359 A132360 A132361

Keyword

nonn

Author

Leroy Quet, Nov 08 2007

Extensions

More terms from Stefan Steinerberger, Nov 12 2007

Status

approved