A294141 Number of partitions of n into odd parts that do not divide n.
1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 2, 3, 0, 5, 5, 2, 7, 5, 1, 11, 14, 6, 9, 20, 5, 18, 33, 5, 43, 50, 12, 58, 17, 16, 91, 96, 26, 58, 146, 23, 183, 148, 11, 241, 285, 88, 187, 152, 98, 367, 537, 87, 177, 376, 179, 857, 983, 77, 1195, 1274, 79, 1596, 468, 290, 2117, 1887, 549, 460, 3064, 440
Offset: 0
Keywords
Examples
a(13) = 2 because we have [7, 3, 3] and [5, 5, 3].
Programs
-
Mathematica
Table[SeriesCoefficient[Product[1/(1 - Boole[Mod[n, k] > 0 && OddQ[k]] x^k), {k, 1, n}], {x, 0, n}], {n, 0, 72}]