login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

The j-values of pairs (i,j) listed in A353296.
3

%I #21 Feb 25 2024 06:03:56

%S 1,3,2,1,3,2,5,3,1,7,6,5,4,3,2,1,7,6,5,4,3,2,9,7,6,5,4,3,1,7,6,5,4,11,

%T 10,9,7,6,5,3,2,1,11,10,7,6,3,2,13,11,9,7,5,3,1,15,14,13,12,11,10,9,8,

%U 7,6,5,4,3,2,1,15,14,13,12,11,10,9,8,7,6,5

%N The j-values of pairs (i,j) listed in A353296.

%C See A353297 for the i-values.

%H Rémy Sigrist, <a href="/A353298/b353298.txt">Table of n, a(n) for n = 1..6196</a> (values for i+j <= 128)

%e Irregular array begins:

%e []

%e [1]

%e []

%e [3, 2, 1]

%e [3, 2]

%e [5, 3, 1]

%e []

%e [7, 6, 5, 4, 3, 2, 1]

%e [7, 6, 5, 4, 3, 2]

%e ...

%t A353298row[ij_] := Select[Range[ij, 1, -1], BitAnd[#, ij-#] > 0 &];

%t Array[A353298row, 25] (* _Paolo Xausa_, Feb 24 2024 *)

%o (PARI) row(ij) = select(j -> bitand(ij-j,j)>0, Vecrev([1..ij]))

%Y Cf. A353296, A353297.

%K nonn,base,tabf

%O 1,2

%A _Rémy Sigrist_ and _N. J. A. Sloane_, Apr 09 2022