%I #7 Jan 04 2022 14:16:19
%S 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,
%T 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,
%U 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
%N Transpose of table A115872.
%t X[a_, b_] := Module[{A, B, C, x},
%t A = Reverse@IntegerDigits[a, 2];
%t B = Reverse@IntegerDigits[b, 2];
%t C = Expand[
%t Sum[A[[i]]*x^(i - 1), {i, 1, Length[A]}]*
%t Sum[B[[i]]*x^(i - 1), {i, 1, Length[B]}]];
%t PolynomialMod[C, 2] /. x -> 2];
%t S[n_, k_] := Module[{x = BitXor[n - 1, 2 n - 1], k0 = k},
%t For[i = 1, True, i++,If[n*i == X[x, i],
%t If[k0 == 1, Return[i], k0--]]]];
%t T[n_, k_] := S[k, n];
%t Table[T[n - k + 1, k], {n, 1, 14}, {k, n, 1, -1}] // Flatten (* _Jean-François Alcover_, Jan 04 2022 *)
%Y Cf. A115872.
%Y First row: A115873.
%K nonn,tabl
%O 1,3
%A _Antti Karttunen_, Feb 07 2006