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

Comments

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

Links

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

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

Crossrefs

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

Sequence in context: A096792 A335746 A015741 * A005686 A328675 A365072

Adjacent sequences: A015750 A015751 A015752 * A015754 A015755 A015756

Keyword

nonn

Author

Clark Kimberling

Extensions

Corrected and extended by Dean Hickerson, Oct 10 2001

Status

approved