|
| |
|
|
A092321
|
|
Sum of largest parts (counted with multiplicity) of all partitions of n.
|
|
11
| |
|
|
1, 4, 8, 17, 26, 49, 69, 115, 164, 249, 343, 513, 686, 974, 1314, 1806, 2382, 3232, 4208, 5597, 7244, 9456, 12118, 15687, 19899, 25422, 32079, 40589, 50796, 63805, 79303, 98817, 122179, 151145, 185820, 228598, 279476, 341807, 416051, 506205, 613244
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
FORMULA
| G.f.: Sum(n*x^n/(1-x^n)*Product(1/(1-x^k), k = 1 .. n), n = 1 .. infinity).
|
|
|
EXAMPLE
| Partitions of 4 are: [1,1,1,1], [1,1,2], [2,2], [1,3], [4]; thus a(4)=4*1+1*2+2*2+1*3+1*4=17.
|
|
|
MATHEMATICA
| first Needs["DiscreteMath`Combinatorica`"], then f[n_] := Block[{c = 2n, k = 2, p = Partitions[n]}, m = Max @@@ p; l = Length[p]; While[k < l, c = c + m[[k]]*Count[p[[k]], m[[k]]]; k++ ]; If[n == 1, 1, c]]; Table[ f[n], {n, 41}] (from Robert G. Wilson v Feb 18 2004)
|
|
|
CROSSREFS
| Cf. A006128, A092314, A092322, A092269, A092309, A092313, A092310, A092311, A092268.
Sequence in context: A037242 A158139 A026393 * A026353 A067773 A008372
Adjacent sequences: A092318 A092319 A092320 * A092322 A092323 A092324
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Vladeta Jovovic (vladeta(AT)eunet.rs), Feb 16 2004
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com) Feb 18 2004
|
| |
|
|
