1,1

For n = 2 2^2 + 25 = 29

For n = 4 2^4 + 25 = 41

For n = 6 2^6 + 25 = 89

Delete[Union[Table[If[PrimeQ[2^n + 25], n, 0], {n, 1, 1000}]], 1]

A019434 (2^(2^n)+1) A057733 (2^n+3) A123250 (2^n+5)

A104072 (Primes of the form 2^n+25)

Sequence in context: A078106 A111082 A100433 this_sequence A083490 A083498 A061513

Adjacent sequences: A157003 A157004 A157005 this_sequence A157007 A157008 A157009

nonn

Edwin Dyke (ed.dyke(AT)btinternet.com), Feb 20 2009