A238627 Number of partitions p of n such that max(p) - 3*min(p) is a part of p.

0, 0, 0, 0, 1, 1, 2, 4, 6, 10, 13, 20, 27, 39, 50, 70, 87, 120, 147, 198, 240, 315, 381, 491, 594, 752, 900, 1130, 1348, 1676, 1992, 2449, 2902, 3540, 4184, 5065, 5969, 7181, 8438, 10095, 11829, 14078, 16460, 19495, 22740, 26818, 31205, 36662, 42571, 49836

Offset

1,7

Links

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

Example

a(8) counts these partitions:  521, 431, 4211, 41111.

Mathematica

Table[Count[IntegerPartitions[n], p_ /; MemberQ[p, Max[p] - 3*Min[p]]], {n, 50}]

Crossrefs

Cf. A238626.

Sequence in context: A140652 A007981 A258847 * A336415 A241821 A280862

Adjacent sequences: A238624 A238625 A238626 * A238628 A238629 A238630

Keyword

nonn,easy

Author

Clark Kimberling, Mar 02 2014

Status

approved