A300586 Number of partitions of n into distinct squarefree parts that do not divide n.
1, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 2, 1, 4, 2, 2, 4, 6, 2, 8, 4, 6, 6, 15, 4, 11, 10, 12, 8, 30, 3, 38, 24, 17, 24, 23, 14, 70, 36, 37, 23, 102, 8, 122, 49, 39, 80, 177, 38, 136, 54, 113, 101, 297, 60, 152, 102, 192, 226, 485, 28, 571, 312, 200, 390, 338, 84, 908, 393, 507, 104, 1229, 241, 1421
Offset: 0
Keywords
Examples
a(14) = 2 because we have [11, 3] and [6, 5, 3].
Programs
-
Mathematica
Table[SeriesCoefficient[Product[(1 + Boole[Mod[n, k] != 0 && SquareFreeQ[k]] x^k), {k, 1, n}], {x, 0, n}], {n, 0, 73}]