|
|
A220479
|
|
Total number of smallest parts that are also emergent parts in all partitions of n.
|
|
5
|
|
|
0, 0, 0, 1, 0, 3, 1, 5, 5, 10, 8, 22, 19, 33, 40, 62, 67, 107, 118, 175, 208, 282, 331, 462, 542, 712, 859, 1112, 1323, 1709, 2030, 2568, 3078, 3830, 4577, 5687, 6760, 8291, 9885, 12045, 14290, 17334, 20515, 24710, 29242, 35004, 41282, 49283, 57963, 68836
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,6
|
|
COMMENTS
|
For the definition of emergent parts see A182699.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
b[n_, i_] := b[n, i] = If[n==0 || i==1, n, {q, r} = QuotientRemainder[n, i]; If[r==0, q, 0] + Sum[b[n-i*j, i-1], {j, 0, n/i}]];
c[n_] := b[n, n];
d[n_] := Total[PartitionsP[Range[0, n-3]]] + PartitionsP[n-1];
a[n_] := c[n] - d[n+1];
|
|
CROSSREFS
|
Cf. A000041, A000070, A002865, A006128, A092269, A120452, A182699, A182709, A195820, A206437, A215513.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|