A238542 Number of partitions p of n such that 2*min(p) + (number of parts of p) is not a part of p.

1, 2, 3, 5, 6, 11, 14, 20, 28, 40, 50, 72, 93, 124, 161, 213, 270, 355, 447, 573, 723, 919, 1142, 1441, 1786, 2225, 2745, 3398, 4160, 5121, 6240, 7623, 9255, 11246, 13577, 16423, 19753, 23767, 28478, 34125, 40723, 48614, 57815, 68740, 81496, 96568, 114103

Offset

1,2

Links

Table of n, a(n) for n=1..47.

Formula

a(n) + A097091(n) = A000041(n).

Example

a(8) counts all the 22 partitions of 8 except 62 and 521.

Mathematica

Table[Count[IntegerPartitions[n], p_ /; ! MemberQ[p, Length[p] + 2*Min[p]]], {n, 50}]

Crossrefs

Cf. A097091.

Sequence in context: A039037 A050049 A132581 * A184640 A240490 A039839

Adjacent sequences: A238539 A238540 A238541 * A238543 A238544 A238545

Keyword

nonn,easy

Author

Clark Kimberling, Feb 28 2014

Status

approved