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,3

Links

Table of n, a(n) for n=1..84.

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 *)

Crossrefs

Cf. A115872.

First row: A115873.

Sequence in context: A238576 A239238 A125928 * A075789 A341018 A214323

Adjacent sequences: A114385 A114386 A114387 * A114389 A114390 A114391

Keyword

nonn,tabl

Author

Antti Karttunen, Feb 07 2006

Status

approved