OFFSET
0,7
EXAMPLE
a(11) counts these 9 partitions: 74, 641, 632, 6311, 6221, 62111, 443, 44111, 41111111.
MATHEMATICA
z = 60; d[p_] := d[p] = Length[DeleteDuplicates[p]]; Table[Count[IntegerPartitions[n], p_ /; MemberQ[p, 2*d[p]]], {n, 0, z}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Mar 30 2014
STATUS
approved