|
|
A240730
|
|
Number of partitions p of n such that m(p) <= m(c(p)), where m = minimal multiplicity of parts, and c = conjugate.
|
|
3
|
|
|
1, 1, 2, 4, 6, 8, 13, 17, 26, 34, 49, 64, 90, 116, 157, 205, 269, 341, 450, 566, 729, 913, 1164, 1447, 1831, 2255, 2822, 3470, 4307, 5254, 6485, 7875, 9646, 11669, 14209, 17107, 20731, 24848, 29956, 35801, 42949, 51116, 61098, 72484, 86268, 102035, 121001
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(7) counts all 15 partitions of 7 except 2111, 1111111, of which the respective conjugates are 52, 7.
|
|
MATHEMATICA
|
z = 30; f[n_] := f[n] = IntegerPartitions[n]; c[p_] := Table[Count[#, _?(# >= i &)], {i, First[#]}] &[p]; m[p_] := Min[Map[Length, Split[p]]];
Table[Count[f[n], p_ /; m[p] < m[c[p]]], {n, 1, z}] (* A240729 *)
Table[Count[f[n], p_ /; m[p] <= m[c[p]]], {n, 1, z}] (* A240730 *)
Table[Count[f[n], p_ /; m[p] == m[c[p]]], {n, 1, z}] (* A240731 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|