|
|
A130020
|
|
Triangle T(n,k), 0<=k<=n, read by rows given by [1,0,0,0,0,0,0,...] DELTA [0,1,1,1,1,1,1,...] where DELTA is the operator defined in A084938 .
|
|
19
|
|
|
1, 1, 0, 1, 1, 0, 1, 2, 2, 0, 1, 3, 5, 5, 0, 1, 4, 9, 14, 14, 0, 1, 5, 14, 28, 42, 42, 0, 1, 6, 20, 48, 90, 132, 132, 0, 1, 7, 27, 75, 165, 297, 429, 429, 0, 1, 8, 35, 110, 275, 572, 1001, 1430, 1430, 0, 1, 9, 44, 154, 429, 1001, 2002, 3432, 4862, 4862, 0
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,8
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
G.f.: Sum_{n>=0, k>=0} T(n, k)*x^k*z^n = 1/(1 - z*c(x*z)) where c(z) = g.f. of A000108.
|
|
EXAMPLE
|
Triangle begins:
1;
1, 0;
1, 1, 0;
1, 2, 2, 0;
1, 3, 5, 5, 0;
1, 4, 9, 14, 14, 0;
1, 5, 14, 28, 42, 42, 0;
1, 6, 20, 48, 90, 132, 132, 0;
1, 7, 27, 75, 165, 297, 429, 429, 0;
1, 8, 35, 110, 275, 572, 1001, 1430, 1430, 0;
1, 9, 44, 154, 429, 1001, 2002, 3432, 4862, 4862, 0;
...
|
|
MATHEMATICA
|
T[n_, k_]:= (n-k)Binomial[n+k-1, k]/n; T[0, 0] = 1;
|
|
PROG
|
(Sage)
@CachedFunction
if n==k: return add((-1)^j*binomial(n, j) for j in (0..n))
return add(A130020(n-1, j) for j in (0..k))
for n in (0..10) :
(Magma)
A130020:= func< n, k | n eq 0 select 1 else (n-k)*Binomial(n+k-1, k)/n >;
(PARI) {T(n, k) = if( k<0 || k>=n, n==0 && k==0, binomial(n+k, n) * (n-k)/(n+k))}; /* Michael Somos, Oct 01 2022 */
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|