|
Search: id:A026794
|
|
|
| A026794 |
|
Triangular array T read by rows: T(n,k) = number of partitions of n in which least part is k, 1<=k<=n. |
|
+0 18
|
|
| 1, 1, 1, 2, 0, 1, 3, 1, 0, 1, 5, 1, 0, 0, 1, 7, 2, 1, 0, 0, 1, 11, 2, 1, 0, 0, 0, 1, 15, 4, 1, 1, 0, 0, 0, 1, 22, 4, 2, 1, 0, 0, 0, 0, 1, 30, 7, 2, 1, 1, 0, 0, 0, 0, 1, 42, 8, 3, 1, 1, 0, 0, 0, 0, 0, 1, 56, 12, 4, 2, 1, 1, 0, 0, 0, 0, 0, 1, 77, 14, 5, 2, 1, 1, 0, 0, 0, 0, 0, 0, 1, 101, 21, 6, 3, 1, 1, 1, 0
(list; table; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
COMMENT
|
Also number of partitions of n in which the largest part occurs exactly k times. Example: T(6,2)=2 because we have [3,3] and [2,2,1,1]. G.f. of column k is x^k/product(1-x^j, j=k..infinity) (k=1,2,...). Row sums yield the partition numbers (A000041). T(n,1)=A000041(n-1) (the partition numbers). T(n,2)=A002865(n-2) (n>=2). T(n,3)=A026796(n). T(n,4)=A026797(n). T(n,5)=A026798(n). T(n,6)=A026799(n). T(n,7)=A026800(n). T(n,8)=A026801(n). T(n,9)=A026802(n). T(n,10)=A026803(n). Sum(k*T(n,k),k=1..n)=A046746(n). - Emeric Deutsch (deutsch(AT)duke.poly.edu), Feb 19 2006
|
|
FORMULA
|
T(n, k)=Sum{T(n-k, i), k<=i<=n-k} for k=1, 2, ..., m, T(n, k)=0 for k=m+1, ..., n-1, where m=[ (n+1)/2 ]; T(n, n)=1 for n >= 1.
G.f.=G(t,x)=sum(t^i*x^i/product(1-x^j, j=i..infinity), i=1..infinity). - Emeric Deutsch (deutsch(AT)duke.poly.edu), Feb 19 2006
G.f.=sum(tx^k/(1-tx^k)/product(1-x^j,j=1..k-1), k=1..infinity). - Emeric Deutsch (deutsch(AT)duke.poly.edu), Mar 13 2006
|
|
EXAMPLE
|
T(6,2)=2 because we have [4,2] and [2,2,2].
Triangle starts:
1;
1,1;
2,0,1;
3,1,0,1;
5,1,0,0,1;
7,2,1,0,0,1;
|
|
MAPLE
|
g:=sum(t^i*x^i/product(1-x^j, j=i..30), i=1..30): gser:=simplify(series(g, x=0, 19)): for n from 1 to 15 do P[n]:=coeff(gser, x^n) od: for n from 1 to 15 do seq(coeff(P[n], t^j), j=1..n) od; - Emeric Deutsch (deutsch(AT)duke.poly.edu), Feb 19 2006
|
|
PROGRAM
|
(PARI) T(n, k)=if(k<1|k>n, 0, if(n==k, 1, sum(i=k, n-k, T(n-k, i))))
|
|
CROSSREFS
|
Row sums give A026806.
Cf. A000041, A002865, A026796, A026797, A026798, A026799, A026800, A026801, A026802, A026803, A046746, A008284.
Sequence in context: A099557 A079217 A079221 this_sequence A137712 A093555 A065432
Adjacent sequences: A026791 A026792 A026793 this_sequence A026795 A026796 A026797
|
|
KEYWORD
|
nonn,tabl
|
|
AUTHOR
|
Clark Kimberling (ck6(AT)evansville.edu)
|
|
EXTENSIONS
|
More terms from Emeric Deutsch (deutsch(AT)duke.poly.edu), Feb 19 2006
|
|
|
Search completed in 0.002 seconds
|