OFFSET
1,2
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
MATHEMATICA
Join[{1}, Map[Total[PositionIndex[Reverse[IntegerDigits[#, 2]]][1]] &, Select[Range[2, 2000, 2], DigitCount[#, 2, 1] == IntegerExponent[#, 2] + 1 &]]]
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Paolo Xausa, Jun 19 2024
STATUS
approved