A344008 Triangle of numerators corresponding to A344007.

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 3, 2, 1, 1, 1, 1, 3, 1, 3, 1, 2, 1, 1, 1, 1, 3, 1, 3, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 3, 1, 1, 2, 1, 4, 1, 1, 3, 1, 1, 1, 3, 1, 1, 2, 1, 4, 1, 1, 3, 1, 1, 1, 1, 3, 1, 1, 5, 1, 4, 1, 1, 3, 1, 1, 1, 1, 1, 3, 1

Offset

1,11

Links

Table of n, a(n) for n=1..91.

Example

The triangle underlying A344007 begins:
  1
  1/2,   1/2
  1/6,   1/3,   1/2
  1/6,   1/4,   1/4,   1/3
  2/15,  1/6,   1/5,   1/4,   1/4
  1/12,  2/15,  1/6,   1/6,   1/5,   1/4
  1/12,  3/28,  2/15,  1/7,   1/6,   1/6,   1/5
  3/40,  1/12,  3/28,  1/8,   2/15,  1/7,   1/6,   1/6
  1/18,  3/40,  1/12,  3/28,  1/9,   1/8,   2/15,  1/7,  1/6
  1/18,  1/15,  3/40,  1/12,  1/10,  3/28,  1/9,   1/8,  2/15,  1/7
  ...
The numerators are:
  1
  1, 1
  1, 1, 1
  1, 1, 1, 1
  2, 1, 1, 1, 1
  1, 2, 1, 1, 1, 1
  1, 3, 2, 1, 1, 1, 1
  3, 1, 3, 1, 2, 1, 1, 1
  1, 3, 1, 3, 1, 1, 2, 1, 1
  1, 1, 3, 1, 1, 3, 1, 1, 2, 1
  ...

Prog

(PARI) lista(nn) = {my(row, nrow, drow); for (n=1, nn, if (n==1, row = [1], k = vecmax(row); nrow = row; nrow[n-1] = 1/n; nrow = concat(nrow, k - 1/n); row = vecsort(nrow); ); drow = apply(numerator, row); for (k=1, #drow, print1(drow[k], ", ")); ); } \\ Michel Marcus, Jun 09 2021

Crossrefs

Cf. A003506, A344007.

Sequence in context: A334924 A211111 A074971 * A198067 A282749 A132587

Adjacent sequences: A344005 A344006 A344007 * A344009 A344010 A344011

Keyword

nonn,tabl

Author

Evan Lee, Jun 09 2021

Extensions

Corrected by Hugo Pfoertner and Michel Marcus, Jun 09 2021

Status

approved