1,1

Table of n, a(n) for n=1..9.

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]}]]

Cf. A019434.

Sequence in context: A212912 A038944 A124081 * A001366 A093329 A246533

Adjacent sequences: A119570 A119571 A119572 * A119574 A119575 A119576

nonn

Roger L. Bagula, May 31 2006

Edited by N. J. A. Sloane, Jun 03 2006

approved