A091445 Concatenate binary vectors ordered first by length, then by the number of 1's and finally by a 'reverse' lexicographical ordering (read words from right to left).

0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1

Offset: 0

Author

Paul Boddington, Jan 10 2004

Keywords

• easy
• nonn

Links

• Paolo Xausa, Table of n, a(n) for n = 0..18433

Crossrefs

Cf. A076478, A091444, A091446, A091447.

Programs

Mathematica

Flatten[Table[Map[Reverse, SortBy[IntegerDigits[Range[0, 2^k - 1], 2, k],Total]], {k, 4}]] (* Paolo Xausa, Jul 28 2025 *)