login
A238481
Number of partitions p of n that do not include (min(p) + max(p))/2 as a part.
3
0, 0, 1, 2, 5, 6, 12, 16, 22, 33, 46, 57, 83, 110, 138, 188, 244, 308, 403, 513, 642, 826, 1035, 1285, 1615, 2014, 2475, 3077, 3782, 4626, 5678, 6934, 8410, 10242, 12386, 14951, 18042, 21711, 26011, 31198, 37283, 44465, 52978, 62999, 74699, 88580, 104753
OFFSET
1,4
FORMULA
A238480(n) + A238481(n) = A000041(n).
EXAMPLE
a(6) counts these partitions:
51 (as part (5+1)/2 = 3 is not included),
42 (as (4+2)/2 = 3 is not included),
411 (as (4+1)/2 = 2.5 cannot be included),
3111 (as (3+1)/2 = 2 is not included),
2211 (as (2+1)/2 = 1.5 cannot be included),
21111 (ditto).
Thus a(6) = 6.
MATHEMATICA
Table[Count[IntegerPartitions[n], p_ /; !MemberQ[p, (Min[p] + Max[p])/2]], {n, 40}]
CROSSREFS
Cf. A238480.
Sequence in context: A309043 A023143 A085206 * A058601 A108365 A064765
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Feb 27 2014
STATUS
approved