OFFSET
0,6
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..8190 (rows 0..12 of triangle, flattened).
EXAMPLE
Triangle begins:
[0] 0;
[1] 0, 1;
[2] 0, 1, 3, 2;
[3] 0, 1, 3, 7, 2, 5, 6, 4;
[4] 0, 1, 3, 7, 15, 2, 5, 6, 11, 13, 14, 4, 9, 10, 12, 8;
...
MAPLE
b:= proc(n) b(n):= add(1-i, i=Bits[Split](n)) end:
T:= n-> sort([$0..2^n-1], (x, y)-> b(x)<b(y) or b(x)=b(y) and x<y)[]:
seq(T(n), n=0..6); # Alois P. Heinz, Mar 31 2025
MATHEMATICA
Table[SortBy[Range[0, 2^n - 1], DigitCount[#, 2, 0] &], {n, 0, 6}]
CROSSREFS
KEYWORD
AUTHOR
Paolo Xausa, Mar 31 2025
STATUS
approved
