|
%I #19 May 18 2020 19:22:28
%S 1,1,1,2,2,3,4,4,5,7,8,10,12,14,18,22,25,30,36,42,50,58,67,79,92,106,
%T 123,142,164,189,217,248,284,325,370,421,479,543,616,698,788,890,1005,
%U 1131,1273,1432,1606,1802,2020,2259,2527,2824,3150,3514,3916,4358,4849
%N Number of partitions of n into distinct parts, none being 7.
%H Vincenzo Librandi, <a href="/A015754/b015754.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = A015742(n+7). - _Michel Marcus_, Feb 20 2014
%t CoefficientList[Series[Product[1+q^n, {n, 1, 60}]/(1+q^7), {q, 0, 60}], q]
%t Table[Count[Select[IntegerPartitions[n], DeleteDuplicates[#] == # &], x_ /; ! MemberQ[x, 7]], {n, 0, 56}] (* _Robert Price_, May 18 2020 *)
%Y Cf. A025147, A015744, A015745, A015746, A015750, A015753, A015755.
%K nonn
%O 0,4
%A _Clark Kimberling_
%E Corrected and extended by _Dean Hickerson_, Oct 10 2001
|
