A352910 The j-values of pairs (i,j) listed in A352909.
0, 1, 0, 2, 0, 3, 2, 1, 0, 4, 0, 5, 4, 1, 0, 6, 4, 2, 0, 7, 6, 5, 4, 3, 2, 1, 0, 8, 0, 9, 8, 1, 0, 10, 8, 2, 0, 11, 10, 9, 8, 3, 2, 1, 0, 12, 8, 4, 0, 13, 12, 9, 8, 5, 4, 1, 0, 14, 12, 10, 8, 6, 4, 2, 0, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0, 16, 0
Offset: 1
Links
- Rémy Sigrist, Table of n, a(n) for n = 1..6563 (values for i+j <= 256)
Programs
-
Mathematica
A352910list[ij_] := Select[Range[ij, 0, -1], BitAnd[#, ij-#] == 0 &]; Flatten[Array[A352910list, 25, 0]] (* Paolo Xausa, Feb 24 2024 *)
Comments