OFFSET
1,5
EXAMPLE
a(6) counts these 3 partitions: 411, 3111, 21111.
MATHEMATICA
z = 60; f[n_] := f[n] = IntegerPartitions[n];
Table[Count[f[n], p_ /; Median[p] < Mean[p]], {n, 1, z}] (* A240217 *)
Table[Count[f[n], p_ /; Median[p] <= Mean[p]], {n, 1, z}] (* A240218 *)
Table[Count[f[n], p_ /; Median[p] == Mean[p]], {n, 1, z}] (* A240219 *)
Table[Count[f[n], p_ /; Median[p] > Mean[p]], {n, 1, z}] (* A240220 *)
Table[Count[f[n], p_ /; Median[p] >= Mean[p]], {n, 1, z}] (* A240221 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 04 2014
STATUS
approved