OFFSET
1,1
COMMENTS
Sum of row n = A125180(n).
FORMULA
T(n,2) = A007504(n-1) (n>=2).
EXAMPLE
Triangle starts:
2;
3, 2;
5, 5, 2;
7, 10, 7, 2;
11, 17, 17, 9, 2;
13, 28, 34, 26, 11, 2;
17, 41, 62, 60, 37, 13, 2;
MAPLE
T:=proc(n, k) if k=1 then ithprime(n) elif k>n then 0 else T(n-1, k)+T(n-1, k-1) fi end: for n from 1 to 12 do seq(T(n, k), k=1..n) od; # yields sequence in triangular form
MATHEMATICA
nmax = 11;
row[1] = Prime[Range[nmax]];
row[n_] := row[n] = row[n-1] // Accumulate;
T[n_, k_] := row[n][[k]];
Table[T[n-k+1, k], {n, 1, nmax}, {k, n, 1, -1}] // Flatten (* Jean-François Alcover, Oct 11 2021 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Gary W. Adamson, Nov 22 2006
EXTENSIONS
Edited by N. J. A. Sloane, Dec 02 2006
STATUS
approved