OFFSET
0,2
COMMENTS
LINKS
Robert Price, Table of n, a(n) for n = 0..8788
EXAMPLE
Triangle T(n,k) begins:
1;
2;
4, 6, 9;
8, 12, 18, 20, 27, 30, 45, 50, 75, 125;
...
MAPLE
b:= proc(n, i) option remember; `if`(n=0, [1], [seq(
map(x-> x*ithprime(j), b(n-1, j))[], j=1..i)])
end:
T:= n-> sort(b(n$2))[]:
seq(T(n), n=0..5); # Alois P. Heinz, Mar 03 2020
MATHEMATICA
t = Table[Union[Apply[Times, Tuples[Prime[Range[n]], {n}], {1}]], {n, 0, 5}];
t // TableForm
Flatten[t]
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Robert Price, Mar 03 2020
STATUS
approved