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
KEYWORD
nonn,base,tabf
AUTHOR
Rémy Sigrist and N. J. A. Sloane, Apr 09 2022
STATUS
approved