A300585 Number of partitions of n into squarefree parts that do not divide n.
1, 0, 0, 0, 0, 1, 0, 2, 1, 2, 1, 7, 1, 12, 3, 4, 8, 29, 2, 42, 8, 18, 18, 87, 7, 71, 36, 67, 32, 234, 3, 319, 98, 126, 118, 192, 31, 772, 205, 293, 98, 1347, 21, 1763, 338, 295, 574, 2973, 116, 2290, 298, 1359, 932, 6287, 214, 2670, 843, 2744, 2334, 12828, 66, 16155, 3620, 2835, 4584, 8380
Offset: 0
Keywords
Examples
a(14) = 3 because we have [11, 3], [6, 5, 3] and [5, 3, 3, 3].
Programs
-
Mathematica
Table[SeriesCoefficient[Product[1/(1 - Boole[Mod[n, k] != 0 && SquareFreeQ[k]] x^k), {k, 1, n}], {x, 0, n}], {n, 0, 65}]