%I #2 Mar 30 2012 17:22:54
%S 5,13,173,2111,665773,
%T 3142394278117397493736691789093238367784438314557856426157
%N Primes of the form 1 + sum_{i=1..n} 2^prime[i] for some n.
%C Primes whose binary representation has the 0 and prime bits set up to prime(n). The values of n are in A159260.
%t s=1; Reap[Do[s=s+2^Prime[n]; If[PrimeQ[s], Sow[s]], {n,50}]][[2,1]]
%K nonn
%O 1,1
%A _T. D. Noe_, Apr 07 2009
|