1,1

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

Sequence in context: A158709 A055502 A003173 this_sequence A160434 A139630 A133044

Adjacent sequences: A159259 A159260 A159261 this_sequence A159263 A159264 A159265

nonn

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