login
A095078
Primes with a single 0 bit in their binary expansion.
5
2, 5, 11, 13, 23, 29, 47, 59, 61, 191, 223, 239, 251, 383, 479, 503, 509, 991, 1019, 1021, 2039, 3583, 3967, 4079, 4091, 4093, 6143, 15359, 16127, 16319, 16381, 63487, 65407, 65519, 129023, 131063, 245759, 253951, 261631, 261887, 262079
OFFSET
1,1
COMMENTS
Except for the first value 2, the sequence gives the primes of the form 2^k -2^j -1 with 0 < j < k-1. If j=k-1 we obtain the Mersenne primes. - Pierre CAMI, May 19 2005
MATHEMATICA
Select[Prime[Range[23000]], DigitCount[#, 2, 0]==1&] (* Harvey P. Dale, Nov 28 2019 *)
PROG
(PARI)forprime(p=2, 262079, v=binary(p); s=0; for(k=1, #v, s+=v[k]); if(#v-s==1, print1(p, ", "))) \\ Washington Bomfim, Jan 13 2011
CROSSREFS
Intersection of A000040 and A030130. Cf. A095058.
Sequence in context: A086081 A345707 A113305 * A335874 A062572 A215214
KEYWORD
nonn,base,easy
AUTHOR
Antti Karttunen, Jun 01 2004
STATUS
approved