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

Author

Clark Kimberling, Feb 28 2014

Keywords

• nonn
• easy

Examples

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

Crossrefs

Cf. A097092.

Programs

Mathematica

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

Formula

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