|
|
A125179
|
|
Triangle read by rows: T(n,1) = prime(n) (the n-th prime); T(n,k) = 0 for k > n; T(n,k) = T(n-1,k) + T(n-1,k-1) for 2 <= k <= n (1 <= k <= n).
|
|
2
|
|
|
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, 19, 58, 103, 122, 97, 50, 15, 2, 23, 77, 161, 225, 219, 147, 65, 17, 2, 29, 100, 238, 386, 444, 366, 212, 82, 19, 2, 31, 129, 338, 624, 830, 810, 578, 294, 101, 21, 2, 37, 160, 467
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
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]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|