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

Author

Evan Lee, Jun 09 2021

Keywords

• nonn
• tabl

Examples

			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
  ...
		

Crossrefs

Cf. A003506, A344007.

Programs

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

Extensions

Corrected by Hugo Pfoertner and Michel Marcus, Jun 09 2021