login
A353298
The j-values of pairs (i,j) listed in A353296.
3
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, 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, 7, 6, 5, 4, 3, 2, 1, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5
OFFSET
1,2
COMMENTS
See A353297 for the i-values.
LINKS
Rémy Sigrist, Table of n, a(n) for n = 1..6196 (values for i+j <= 128)
EXAMPLE
Irregular array begins:
[]
[1]
[]
[3, 2, 1]
[3, 2]
[5, 3, 1]
[]
[7, 6, 5, 4, 3, 2, 1]
[7, 6, 5, 4, 3, 2]
...
MATHEMATICA
A353298row[ij_] := Select[Range[ij, 1, -1], BitAnd[#, ij-#] > 0 &];
Array[A353298row, 25] (* Paolo Xausa, Feb 24 2024 *)
PROG
(PARI) row(ij) = select(j -> bitand(ij-j, j)>0, Vecrev([1..ij]))
CROSSREFS
Sequence in context: A087818 A112746 A107460 * A152975 A327439 A244758
KEYWORD
nonn,base,tabf
AUTHOR
STATUS
approved