A015746 Number of partitions of n into distinct parts, none being 4.

1, 1, 1, 2, 1, 2, 3, 3, 5, 6, 7, 9, 10, 12, 15, 18, 22, 26, 31, 36, 42, 50, 58, 68, 80, 92, 107, 124, 142, 164, 189, 216, 248, 284, 323, 369, 420, 476, 541, 613, 693, 784, 885, 997, 1123, 1264, 1419, 1593, 1787, 2000, 2239, 2504, 2795, 3120, 3479, 3874, 4313

Offset

0,4

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Formula

a(n) = A015739(n+4). - Michel Marcus, Feb 20 2014

Mathematica

CoefficientList[Series[Product[1+q^n, {n, 1, 60}]/(1+q^4), {q, 0, 60}], q]
Table[Count[Select[IntegerPartitions[n], DeleteDuplicates[#] == # &], x_ /; ! MemberQ[x, 4]], {n, 0, 56}] (* Robert Price, May 17 2020 *)

Crossrefs

Cf. A025147, A015744, A015745, A015750, A015753, A015754, A015755.

Sequence in context: A239493 A331849 A015739 * A109266 A022876 A242692

Adjacent sequences: A015743 A015744 A015745 * A015747 A015748 A015749

Keyword

nonn

Author

Clark Kimberling

Extensions

Corrected and extended by Dean Hickerson, Oct 10, 2001

Status

approved