|
Search: id:A027293
|
|
|
| A027293 |
|
Triangular array T given by rows: P(n,k) = number of partitions of n that contain k as a part. |
|
+0 11
|
|
| 1, 1, 1, 2, 1, 1, 3, 2, 1, 1, 5, 3, 2, 1, 1, 7, 5, 3, 2, 1, 1, 11, 7, 5, 3, 2, 1, 1, 15, 11, 7, 5, 3, 2, 1, 1, 22, 15, 11, 7, 5, 3, 2, 1, 1, 30, 22, 15, 11, 7, 5, 3, 2, 1, 1, 42, 30, 22, 15, 11, 7, 5, 3, 2, 1, 1, 56, 42, 30, 22, 15, 11, 7, 5, 3, 2, 1, 1, 77
(list; table; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
COMMENT
|
A027293 * an infinite lower triangular matrix with A010815 (1, -1, -1, 0, 0, 1,...) as the main diagonal the rest zeros = triangle A145975 having row sums = [1, 0, 0, 0,...]. These matrix operations are equivalent to the comment in A010815 stating "when convolved with the partition numbers = [1, 0, 0, 0,...]. [From Gary W. Adamson (qntmpkt(AT)yahoo.com), Oct 25 2008]
Contribution from Gary W. Adamson (qntmpkt(AT)yahoo.com), Oct 26 2008: (Start)
Row sums = A000070: (1, 2, 4, 7, 12, 19, 30, 45, 67,...)
A027293^2 = triangle A146023 (End)
|
|
EXAMPLE
|
Triangle begins:
1
1 1
2 1 1
3 2 1 1
5 3 2 1 1
7 5 3 2 1 1
11 7 5 3 2 1 1
15 11 7 5 3 2 1 1
22 15 11 7 5 3 2 1 1
30 22 15 11 7 5 3 2 1 1
42 30 22 15 11 7 5 3 2 1 1
|
|
MATHEMATICA
|
(* first *) Needs["DiscreteMath`Combinatorica`"] (* then *) f[n_] := Block[{t = Flatten[Union /(AT) Partitions(AT)n]}, Table[Count[t, i], {i, n}]]; Array[f, 13] // Flatten.
|
|
CROSSREFS
|
Every column of T is A000041.
A145975, A010815 [From Gary W. Adamson (qntmpkt(AT)yahoo.com), Oct 25 2008]
A000070, A146023 [From Gary W. Adamson (qntmpkt(AT)yahoo.com), Oct 26 2008]
Sequence in context: A093628 A114282 A112739 this_sequence A104762 A152462 A098805
Adjacent sequences: A027290 A027291 A027292 this_sequence A027294 A027295 A027296
|
|
KEYWORD
|
nonn,tabl
|
|
AUTHOR
|
Clark Kimberling (ck6(AT)evansville.edu)
|
|
|
Search completed in 0.002 seconds
|