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, 200, 2], DigitCount[#, 2, 1] <= IntegerExponent[#, 2] + 1 &]]]
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Paolo Xausa, Jun 01 2024
STATUS
approved