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

Author

Clark Kimberling

Keywords

• nonn

Links

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

Crossrefs

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

Programs

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 *)

Formula

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

Extensions

Corrected and extended by Dean Hickerson, Oct 10 2001