A015750 Number of partitions of n into distinct parts, none being 5.

1, 1, 1, 2, 2, 2, 3, 4, 4, 6, 8, 9, 11, 14, 16, 19, 23, 27, 32, 38, 45, 53, 62, 72, 84, 97, 112, 130, 150, 172, 199, 228, 260, 298, 340, 386, 440, 500, 566, 642, 727, 820, 926, 1044, 1174, 1321, 1484, 1664, 1866, 2090, 2337, 2613, 2918, 3254, 3628, 4041, 4495

Offset

0,4

Links

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

Formula

a(n) = A015740(n+5). - Michel Marcus, Feb 20 2014

Mathematica

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

Crossrefs

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

Sequence in context: A274157 A005863 A015740 * A275442 A303846 A275446

Adjacent sequences: A015747 A015748 A015749 * A015751 A015752 A015753

Keyword

nonn

Author

Clark Kimberling

Extensions

Corrected and extended by Dean Hickerson, Oct 10 2001

Status

approved