OFFSET
1,2
COMMENTS
This is a permutation of the positive integers; the inverse permutation is A356419. - Jianing Song, Aug 06 2022
Row i shows the numbers m, in increasing order, such that 2^i divides binomial(2*m, m) and 2^(i+1) does not. Let T'(i, j) = 1 + T(i, j) for all i and j. Conjecture: every column of T' is eventually geometric with common ratio 2. Assuming the conjecture is true, let d(k) be the number in column k of the row in which this doubling begins; then d(1) = 1, d(2) = 1, d(3) = 2, d(4) = 3, d(5) = 4. - Clark Kimberling, Nov 08 2025
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..8001 (126 antidiagonals)
EXAMPLE
Array begins:
j=1 j=2 j=3 j=4 j=5 j=6
i=1: 1, 2, 4, 8, 16, 32, ...
i=2: 3, 5, 6, 9, 10, 12, ...
i=3: 7, 11, 13, 14, 19, 21, ...
i=4: 15, 23, 27, 29, 30, 39, ...
i=5: 31, 47, 55, 59, 61, 62, ...
i=6: 63, 95, 111, 119, 123, 125, ...
MATHEMATICA
a = {}; Do[ a = Append[a, Last[ Take[ Select[ Range[2^13], Count[ IntegerDigits[ #, 2], 1] == j & ], i - j]]], {i, 2, 12}, {j, 1, i - 1} ]; a
u = Table[First[FactorInteger[Binomial[2 n, n]]][[2]], {n, 1, 1000}]
Grid[Table[Flatten[Position[u, n]], {n, 1, 10}]]
(* Clark Kimberling, Nov 08 2025 *)
CROSSREFS
KEYWORD
AUTHOR
Robert G. Wilson v, Jan 30 2002
STATUS
approved