OFFSET
1,3
COMMENTS
Also number of partitions of n such that if the number of parts is k, then the smallest part is at most floor(k/2). Example: a(8)=16 because we have [7,1],[6,1,1],[5,2,1],[4,3,1],[5,1,1,1],[4,2,1,1],[3,3,1,1],[3,2,2,1],[2,2,2,2],[4,1,1,1,1],[3,2,1,1,1],[2,2,2,1,1],[3,1,1,1,1,1],[2,2,1,1,1,1],[2,1,1,1,1,1,1] and [1,1,1,1,1,1,1,1].
FORMULA
G.f.=sum(x^k*(1-x^(k(floor(k/2))))/product(1-x^j, j=1..k), k=1..infinity).
EXAMPLE
a(8)=16 because we have [8],[7,1],[6,2],[6,1,1],[5,3],[5,2,1],[5,1,1,1],[4,4],[4,3,1],[4,2,2],[4,2,1,1],[4,1,1,1,1],[3,2,2,1],[3,2,1,1,1],[3,1,1,1,1,1] and [2,1,1,1,1,1,1].
MAPLE
g:=sum(x^k*(1-x^(k*(floor(k/2))))/product(1-x^j, j=1..k), k=1..85): gser:=series(g, x=0, 55): seq(coeff(gser, x, n), n=1..50);
MATHEMATICA
z=55 ; q[n_] := q[n] = IntegerPartitions[n]; t[p_] := Length[p];
Table[Count[q[n], p_ /; 2 Min[p] <= t[p]], {n, z}] (* Clark Kimberling, Feb 15 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Emeric Deutsch, Apr 12 2006
STATUS
approved