A015754 Number of partitions of n into distinct parts, none being 7.

1, 1, 1, 2, 2, 3, 4, 4, 5, 7, 8, 10, 12, 14, 18, 22, 25, 30, 36, 42, 50, 58, 67, 79, 92, 106, 123, 142, 164, 189, 217, 248, 284, 325, 370, 421, 479, 543, 616, 698, 788, 890, 1005, 1131, 1273, 1432, 1606, 1802, 2020, 2259, 2527, 2824, 3150, 3514, 3916, 4358, 4849

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, A015750, A015753, A015755.

Programs

Mathematica

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

Formula

a(n) = A015742(n+7). - Michel Marcus, Feb 20 2014

Extensions

Corrected and extended by Dean Hickerson, Oct 10 2001