OFFSET
1,1
EXAMPLE
Corner:
2 4 8 16 32 64
6 12 18 24 36 48
30 60 90 120 150 180
210 420 630 840 1050 1260
2310 4620 6930 9240 11550 13860
30030 60060 90090 120120 150150 180180
90 = 2^1 * 3^2 * 5^1, so 90 is in row 3.
MATHEMATICA
rows = 10; t = (Table[n = 120000/Exp[row] Apply[Times, Table[Prime[k], {k, row}]];
eq = Table[Prime[i]^k[i], {i, row}];
Sort[Flatten[Table[Apply[Times, eq], ##] & @@Table[{k[i],
Log[Prime[i], n/Apply[Times, Take[eq, i - 1]]]}, {i, row}]]], {row, rows}]);
Table[t[[n]][[k]], {n, 1, rows}, {k, 1, rows}] // TableForm (* array *)
w[n_, k_] := t[[n]][[k]];
Table[w[n - k + 1, k], {n, rows}, {k, n, 1, -1}] // Flatten (* sequence *)
(* Peter J. C. Moses, Mar 23 2024 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Clark Kimberling, Mar 26 2024
STATUS
approved