OFFSET
1,3
COMMENTS
See A353298 for the j-values.
LINKS
Rémy Sigrist, Table of n, a(n) for n = 1..6196 (values for i+j <= 128)
EXAMPLE
Irregular array begins:
[]
[1]
[]
[1, 2, 3]
[2, 3]
[1, 3, 5]
[]
[1, 2, 3, 4, 5, 6, 7]
...
MATHEMATICA
A353297row[ij_] := Select[Range[ij], BitAnd[#, ij-#] > 0 &];
Array[A353297row, 25] (* Paolo Xausa, Feb 24 2024 *)
PROG
(PARI) row(ij) = select(i -> bitand(i, ij-i)>0, [1..ij])
CROSSREFS
KEYWORD
nonn,base,tabf
AUTHOR
Rémy Sigrist and N. J. A. Sloane, Apr 09 2022
STATUS
approved