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
KEYWORD
nonn
AUTHOR
Leroy Quet, Nov 08 2007
EXTENSIONS
More terms from Stefan Steinerberger, Nov 12 2007
STATUS
approved