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
KEYWORD
nonn
AUTHOR
Roger L. Bagula, May 31 2006
EXTENSIONS
Edited by N. J. A. Sloane, Jun 03 2006
STATUS
approved