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

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

Cf. A353296, A353297.

Sequence in context: A087818 A112746 A107460 * A152975 A327439 A244758

Adjacent sequences: A353295 A353296 A353297 * A353299 A353300 A353301

Keyword

nonn,base,tabf

Author

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

Status

approved