OFFSET
1,4
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..1000
EXAMPLE
a(6) counts these partitions: 222, 2211, 21111.
MATHEMATICA
Table[Count[IntegerPartitions[n], p_ /; MemberQ[p, 1 + Max[p]/2]], {n, 50}]
p[n_, m_] := If[m > n, 0, If[n == m, 1, p[n, m] = Sum[p[n - m, j], {j, m}]]]; a[1] = 0; a[n_] := 1 + Sum[p[n-k-1, 2*k], {k, n/2}]; Array[a, 100] (* Giovanni Resta, Mar 07 2014 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Mar 02 2014
STATUS
approved