OFFSET
0,1
FORMULA
From Rémy Sigrist, Sep 02 2018: (Start)
(End)
EXAMPLE
Triangle begins:
2;
3, 3;
5, 9, 5;
7, 45, 45, 7;
11, 315, 2025, 315, 11;
13, 3465, 637875, 637875, 3465, 13;
...
Formatted as a symmetric triangle:
.
2
.
3 3
.
5 9 5
.
7 45 45 7
.
11 315 2025 315 11
.
13 3465 637875 637875 3465 13
...
MATHEMATICA
t = {{2}};
Table[AppendTo[
t, {Prime[i],
Table[
t[[i - 1]][[j]]*t[[i - 1]][[j + 1]], {j,
1, (t[[i - 1]] // Length) - 1}], Prime[i]} // Flatten], {i, 2, 10}] //
Last // Flatten
t={}; Do[r={}; Do[If[k==0||k==n, m=Prime[n + 1], m=t[[n, k]]t[[n, k + 1]]]; r=AppendTo[r, m], {k, 0, n}]; AppendTo[t, r], {n, 0, 10}]; t (* Vincenzo Librandi, Sep 03 2018 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Philipp O. Tsvetkov, Aug 02 2018
STATUS
approved