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