OFFSET
0,7
EXAMPLE
a(11) counts these 9 partitions: {10,1}, {9,2}, {8,3}, {8,2,1}, {7,3,1}, {6,4,1}, {6,3,2}, {5,4,2}, {5,3,2,1}.
MATHEMATICA
z = 70; f[n_] := f[n] = Select[IntegerPartitions[n], Max[Length /@ Split@#] == 1 &];
Table[Count[f[n], p_ /; Max[p] < 2*Min[p]], {n, 0, z}] (* A240874 *)
Table[Count[f[n], p_ /; Max[p] == 2*Min[p]], {n, 0, z}] (* A241035 *)
Table[Count[f[n], p_ /; Max[p] >= 2*Min[p]], {n, 0, z}] (* A241036 *)
Table[Count[f[n], p_ /; Max[p] > 2*Min[p]], {n, 0, z}] (* A241037 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 15 2014
STATUS
approved