OFFSET
1,1
EXAMPLE
15 = 2^0*3^1*51, so (e(1),e(2),e(3)) = (0,1,1), so 15 is in row 2
Corner:
2 6 30 210 2310 30030 510510 9699690
3 10 15 42 70 105 330 462
5 14 21 35 66 110 154 165
7 22 33 55 77 78 130 182
11 26 39 65 91 102 143 170
13 34 51 85 114 119 187 190
17 38 57 95 133 138 209 230
19 46 69 115 161 174 253 290
23 58 87 145 186 203 310 319
MATHEMATICA
exps := Map[#[[2]] &, Sort[Join[#, Complement[Map[{Prime[#], 0} &, Range[PrimePi[Last[#][[1]]]]], Map[{#[[1]], 0} &, #]]]] &[FactorInteger[#]]] &;
m = Map[Transpose[#][[1]] &, GatherBy[Map[{#[[1]], Count[#[[2]], 0]} &, Select[Map[{#, exps[#]} &, Range[2, 5000]], Max[#[[2]]] <= 1 &]], #[[2]] &]];
z = 12; row1 = Table[Apply[Times, Prime[Range[n]]], {n, 1, z}];
r = Join[{row1}, Table[Take[m[[n]], z], {n, 2, z}]];
Grid[r] (* array *)
w[n_, k_] := r[[n]][[k]]
Table[w[n - k + 1, k], {n, z}, {k, n, 1, -1}] // Flatten
(* sequence *)(* Peter J. C. Moses, Mar 21 2024 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Clark Kimberling, Apr 10 2024
STATUS
approved