|
| |
|
|
A066884
|
|
Square array read by antidiagonals where the n-th row contains the positive integers with n binary 1's.
|
|
3
| |
|
|
1, 3, 2, 7, 5, 4, 15, 11, 6, 8, 31, 23, 13, 9, 16, 63, 47, 27, 14, 10, 32, 127, 95, 55, 29, 19, 12, 64, 255, 191, 111, 59, 30, 21, 17, 128, 511, 383, 223, 119, 61, 39, 22, 18, 256, 1023, 767, 447, 239, 123, 62, 43, 25, 20, 512, 2047, 1535, 895, 479, 247, 125, 79, 45
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| This is a permutation of the positive integers; the inverse permutation is A067587.
|
|
|
EXAMPLE
| Column: 1. 2.. 3.. 4.. 5.. 6
Row 1:. 1. 2.. 4.. 8. 16. 32
Row 2:. 3 5.. 6.. 9. 10. 12
Row 3:. 7 11. 13. 14. 19. 21
Row 4: 15 23. 27. 29. 30. 39
Row 5: 31 47. 55. 59. 61. 62
Row 6: 63 95 111 119 123 125
|
|
|
MATHEMATICA
| a = {}; Do[ a = Append[a, Last[ Take[ Take[ Select[ Range[2^12], Count[ IntegerDigits[ #, 2], 1] == j - i + 1 & ], j], i]]], {j, 1, 11}, {i, 1, j}]; a
|
|
|
CROSSREFS
| Rows are A000079, A018900, A014311, A014312, A014313, A023688, A023689, A023690, A023691, A038461, A038462, A038463 etc. which are A011557 and A038444-A038452 read as if binary numbers. Columns include A000225, A055010. Cf. A000120.
Diagonals include A000918, A036563, and A153894. [From Franklin T. Adams-Watters (FrankTAW(AT)Netscape.net), Apr 22 2009]
Sequence in context: A167267 A097286 A163255 * A171429 A191448 A191447
Adjacent sequences: A066881 A066882 A066883 * A066885 A066886 A066887
|
|
|
KEYWORD
| nonn,tabl
|
|
|
AUTHOR
| Jared Benjamin Ricks (jaredricks(AT)yahoo.com), Jan 21 2002
|
|
|
EXTENSIONS
| Corrected and extended by Henry Bottomley (se16(AT)btinternet.com), Jan 27 2002
|
| |
|
|
