1,1

Primes whose binary representation has the 0 and prime bits set up to prime(n). The values of n are in A159260.

s=1; Reap[Do[s=s+2^Prime[n]; If[PrimeQ[s], Sow[s]], {n, 50}]][[2, 1]]

Sequence in context: A004063 A005764 A099974 this_sequence A117077 A124924 A124878

Adjacent sequences: A159258 A159259 A159260 this_sequence A159262 A159263 A159264

nonn

T. D. Noe (noe(AT)sspectra.com), Apr 07 2009