A114388 Transpose of table A115872.

1, 1, 2, 3, 2, 3, 1, 6, 3, 4, 7, 2, 7, 4, 5, 3, 14, 3, 12, 5, 6, 7, 6, 15, 4, 14, 6, 7, 1, 14, 7, 28, 5, 15, 7, 8, 15, 2, 15, 12, 30, 6, 24, 8, 9, 7, 30, 3, 28, 14, 31, 7, 28, 9, 10, 3, 14, 31, 4, 30, 15, 56, 8, 30, 10, 11, 3, 6, 15, 60, 5, 31, 24, 60, 9, 31, 11, 12, 5, 6, 12, 28, 62, 6

Offset: 1

Author

Antti Karttunen, Feb 07 2006

Keywords

• nonn
• tabl

Crossrefs

Cf. A115872.

First row: A115873.

Programs

Mathematica

X[a_, b_] := Module[{A, B, C, x},
     A = Reverse@IntegerDigits[a, 2];
     B = Reverse@IntegerDigits[b, 2];
     C = Expand[
        Sum[A[[i]]*x^(i - 1), {i, 1, Length[A]}]*
        Sum[B[[i]]*x^(i - 1), {i, 1, Length[B]}]];
     PolynomialMod[C, 2] /. x -> 2];
S[n_, k_] := Module[{x = BitXor[n - 1, 2 n - 1], k0 = k},
     For[i = 1, True, i++,If[n*i == X[x, i],
     If[k0 == 1, Return[i], k0--]]]];
T[n_, k_] := S[k, n];
Table[T[n - k + 1, k], {n, 1, 14}, {k, n, 1, -1}] // Flatten (* Jean-François Alcover, Jan 04 2022 *)