Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%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