login
A119573
Primes that have one of the forms 2^(2^n) + 1, 2^(2^n - 1) + 2^(2^(n + 1) - 1) + 1 or (2^(2^n) + 1 + 2^(2^(n + 1) - 1) + 1)/2.
0
3, 5, 7, 11, 17, 73, 137, 257, 65537
OFFSET
1,1
MATHEMATICA
a = Union[Flatten[Table[{2^(2^n) + 1, 2^(2^n - 1) + 2^(2^(n + 1) - 1) + 1, (2^(2^n) + 1 + 2^(2^(n + 1) - 1) + 1)/2}, {n, 0, 10}]]] aout = Flatten[Table[If[PrimeQ[a[[n]]], a[[n]], {}], {n, 1, Length[a]}]]
CROSSREFS
Cf. A019434.
Sequence in context: A356751 A038944 A124081 * A001366 A093329 A246533
KEYWORD
nonn
AUTHOR
Roger L. Bagula, May 31 2006
EXTENSIONS
Edited by N. J. A. Sloane, Jun 03 2006
STATUS
approved