[go: up one dir, main page]

login
A373854
Row sums of A373556.
4
1, 5, 6, 7, 12, 8, 13, 14, 9, 14, 15, 16, 22, 10, 15, 16, 17, 23, 18, 24, 25, 11, 16, 17, 18, 24, 19, 25, 26, 20, 26, 27, 28, 35, 12, 17, 18, 19, 25, 20, 26, 27, 21, 27, 28, 29, 36, 22, 28, 29, 30, 37, 31, 38, 39, 13, 18, 19, 20, 26, 21, 27, 28, 22, 28, 29, 30
OFFSET
1,2
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