OFFSET
1,2
EXAMPLE
The terms together with their binary expansions and binary indices begin:
1: 1 ~ {1}
2: 10 ~ {2}
4: 100 ~ {3}
8: 1000 ~ {4}
12: 1100 ~ {3,4}
16: 10000 ~ {5}
32: 100000 ~ {6}
64: 1000000 ~ {7}
128: 10000000 ~ {8}
144: 10010000 ~ {5,8}
256: 100000000 ~ {9}
288: 100100000 ~ {6,9}
512: 1000000000 ~ {10}
576: 1001000000 ~ {7,10}
1024: 10000000000 ~ {11}
2048: 100000000000 ~ {12}
3072: 110000000000 ~ {11,12}
4096: 1000000000000 ~ {13}
8192: 10000000000000 ~ {14}
16384: 100000000000000 ~ {15}
32768: 1000000000000000 ~ {16}
32800: 1000000000100000 ~ {6,16}
MATHEMATICA
bix[n_]:=Join@@Position[Reverse[IntegerDigits[n, 2]], 1];
Select[Range[1000], SameQ@@Total/@bix/@bix[#]&]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Gus Wiseman, Apr 13 2024
STATUS
approved