|
| |
| |
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
|
|
|
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
|
|
|
|
STATUS
|
approved
|
| |
|
|
