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
a(27) added by Harvey P. Dale, Feb 01 2025
STATUS
approved