A015753 Number of partitions of n into distinct parts, none being 6.

1, 1, 1, 2, 2, 3, 3, 4, 5, 6, 8, 9, 12, 14, 17, 21, 24, 29, 34, 40, 47, 55, 65, 75, 88, 102, 118, 137, 157, 181, 208, 238, 272, 311, 355, 404, 460, 522, 592, 671, 758, 856, 966, 1088, 1224, 1377, 1546, 1734, 1944, 2176, 2434, 2720, 3036, 3386, 3774, 4202, 4674

Offset: 0

Author

Clark Kimberling

Keywords

• nonn

Comments

a(n) = A015741(n+6). - Alois P. Heinz, Aug 24 2011

Links

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

Crossrefs

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

Programs

Mathematica

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

Extensions

Corrected and extended by Dean Hickerson, Oct 10 2001