OFFSET
0,4
COMMENTS
Number of partitions p of n such that mean(p) >= multiplicity(max(p)). For example, a(5) counts these 5 partitions: 5, 41, 32, 311, 2111. See the Mathematica program at A240200 for a count of partitions defined in this manner, along with related sequences. - Clark Kimberling, Apr 03 2014
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1000
EXAMPLE
a(4) = 4 since property holds for 4 partitions of 4: (3,1), (2,2), (2,1,1), (1,1,1,1).
MATHEMATICA
f[n_] := Length@ Select[ IntegerPartitions@n, (Length@ # > 1 && Last@# First@# <= n) &]; Array[f, 46] (* Robert G. Wilson v, Mar 15 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Resta, Mar 14 2006
EXTENSIONS
More terms from Robert G. Wilson v, Mar 15 2006
STATUS
approved