%I A159262
%S A159262 2,3,7,11,19,191,709,1597,16421
%N A159262 Largest prime appearing as an exponent in the sum in A159261.
%t A159262 s=1; Reap[Do[s=s+2^Prime[n]; If[PrimeQ[s], Sow[Prime[n]]], {n,2000}]][[2,
               1]]
%Y A159262 Sequence in context: A158709 A055502 A003173 this_sequence A160434 A139630 
               A133044
%Y A159262 Adjacent sequences: A159259 A159260 A159261 this_sequence A159263 A159264 
               A159265
%K A159262 nonn
%O A159262 1,1
%A A159262 T. D. Noe (noe(AT)sspectra.com), Apr 07 2009