A238545 Number of partitions p of n such that max(p) - (number of parts of p) is not a part of p.

1, 2, 3, 4, 7, 9, 14, 18, 27, 35, 50, 63, 89, 112, 152, 192, 256, 319, 419, 521, 672, 834, 1062, 1307, 1652, 2025, 2528, 3089, 3828, 4651, 5726, 6929, 8468, 10214, 12409, 14901, 18018, 21560, 25928, 30928, 37035, 44017, 52500, 62205, 73896, 87310, 103352

Offset

1,2

Links

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

Formula

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

Example

a(6) counts all the 11 partitions of 6 except 42, 411.

Mathematica

Table[Count[IntegerPartitions[n], p_ /; !MemberQ[p, Max[p] - Length[p]]], {n, 50}]

Crossrefs

Cf. A238544.

Sequence in context: A065046 A049709 A108950 * A325343 A238495 A239329

Adjacent sequences: A238542 A238543 A238544 * A238546 A238547 A238548

Keyword

nonn,easy

Author

Clark Kimberling, Feb 28 2014

Status

approved