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,4

Links

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

Formula

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

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

Crossrefs

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

Sequence in context: A141271 A097793 A015742 * A207613 A321424 A289677

Adjacent sequences: A015751 A015752 A015753 * A015755 A015756 A015757

Keyword

nonn

Author

Clark Kimberling

Extensions

Corrected and extended by Dean Hickerson, Oct 10 2001

Status

approved