OFFSET
1,1
COMMENTS
Row-products are the positive integers 1, 2, 3, ...
EXAMPLE
The first 16 rows:
1 =
2 = 2
3 = 3
4 = 4
5 = 5
6 = 6
7 = 7
8 = 8
9 = 9
10 = 2 * 5
11 = 11
12 = 12
13 = 13
14 = 2 * 7
15 = 15
16 = 16
The factorization of 18564 is 18564 = 12*7*221, so row 18564 is {12,7,221}.
MATHEMATICA
primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Table[Times@@Prime/@#&/@Split[primeMS[n], #1>=#2-1&], {n, 100}]
KEYWORD
nonn,tabf
AUTHOR
Gus Wiseman, Aug 28 2022
STATUS
approved