A353297 The i-values of pairs (i,j) listed in A353296.

1, 1, 2, 3, 2, 3, 1, 3, 5, 1, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 1, 3, 4, 5, 6, 7, 9, 4, 5, 6, 7, 1, 2, 3, 5, 6, 7, 9, 10, 11, 2, 3, 6, 7, 10, 11, 1, 3, 5, 7, 9, 11, 13, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13

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

Cf. A353296, A353298.

Sequence in context: A106560 A263350 A202495 * A103431 A238576 A239238

Adjacent sequences: A353294 A353295 A353296 * A353298 A353299 A353300

Keyword

nonn,base,tabf

Author

Rémy Sigrist and N. J. A. Sloane, Apr 09 2022

Status

approved