OFFSET
1,1
MATHEMATICA
Select[MersennePrimeExponent[Range[47]], OddQ @ DigitCount[#, 2][[1]] &] (* Amiram Eldar, Dec 10 2019 *)
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Ilya Lopatin and Juri-Stepan Gerasimov, Feb 08 2014
EXTENSIONS
a(13) and a(18) inserted and more terms added by Amiram Eldar, Dec 10 2019
STATUS
approved