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

1, 2, 3, 5, 7, 10, 15, 21, 29, 39, 54, 73, 96, 126, 167, 217, 281, 359, 461, 587, 744, 935, 1176, 1470, 1832, 2271, 2814, 3465, 4262, 5219, 6383, 7777, 9456, 11458, 13869, 16733, 20155, 24208, 29040, 34743, 41508, 49473, 58886, 69944, 82964, 98208, 116113

Offset

1,2

Links

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

Formula

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

Example

a(10) counts all the 42 partitions of 10 except these:  82, 7111, 631.

Mathematica

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

Crossrefs

Cf. A097092.

Sequence in context: A321176 A240573 A160571 * A184641 A225490 A076972

Adjacent sequences: A238540 A238541 A238542 * A238544 A238545 A238546

Keyword

nonn,easy

Author

Clark Kimberling, Feb 28 2014

Status

approved