|
|
|
|
0, 0, 0, 0, 0, 1, 2, 5, 10, 18, 30, 49, 75, 112, 163, 231, 322, 441, 595, 792, 1045, 1361, 1760, 2255, 2871, 3626, 4559, 5691, 7077, 8750, 10780, 13216, 16156, 19662, 23868, 28866, 34828, 41882, 50262, 60138
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,7
|
|
COMMENTS
|
Also the number of integer partitions of n - 3 with Durfee square of length > 2, i.e., those with at least 3 parts > 2. The Heinz numbers of these partitions are given by A307515. - Gus Wiseman, Apr 12 2019
|
|
LINKS
|
|
|
MAPLE
|
end proc:
|
|
MATHEMATICA
|
durf[ptn_]:=Length[Select[Range[Length[ptn]], ptn[[#]]>=#&]];
Table[Length[Select[IntegerPartitions[n], durf[#]>2&]], {n, 0, 30}] (* Gus Wiseman, Apr 12 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|