|
%I #4 Oct 23 2017 16:53:48
%S 1,0,0,0,0,0,0,0,1,0,1,0,1,0,2,0,3,1,2,2,3,0,4,4,4,2,6,1,6,8,4,10,12,
%T 4,12,5,7,17,17,8,14,24,9,29,24,4,33,40,25,29,28,23,45,63,23,30,52,37,
%U 84,99,26,113,112,23,143,60,57,173,143,89,70,226,87,256,256,53,245,135,127,378,233
%N Number of partitions of n into distinct odd parts that do not divide n.
%H <a href="/index/Par#part">Index entries for sequences related to partitions</a>
%e a(14) = 2 because we have [11, 3] and [9, 5].
%t Table[SeriesCoefficient[Product[1 + Boole[Mod[n, k] > 0 && OddQ[k]] x^k, {k, 1, n}], {x, 0, n}], {n, 0, 80}]
%Y Cf. A000700, A098743, A171565, A200745, A209402, A294141.
%K nonn
%O 0,15
%A _Ilya Gutkovskiy_, Oct 23 2017
|
