|
%I #22 May 18 2020 19:22:52
%S 1,1,1,2,2,3,3,4,5,6,8,9,12,14,17,21,24,29,34,40,47,55,65,75,88,102,
%T 118,137,157,181,208,238,272,311,355,404,460,522,592,671,758,856,966,
%U 1088,1224,1377,1546,1734,1944,2176,2434,2720,3036,3386,3774,4202,4674
%N Number of partitions of n into distinct parts, none being 6.
%C a(n) = A015741(n+6). - _Alois P. Heinz_, Aug 24 2011
%H Vincenzo Librandi, <a href="/A015753/b015753.txt">Table of n, a(n) for n = 0..1000</a>
%t CoefficientList[Series[Product[1+q^n, {n, 1, 60}]/(1+q^6), {q, 0, 60}], q]
%t Table[Count[Select[IntegerPartitions[n], DeleteDuplicates[#] == # &], x_ /; ! MemberQ[x, 6]], {n, 0, 56}] (* _Robert Price_, May 18 2020 *)
%Y Cf. A025147, A015744, A015745, A015746, A015750, A015754, A015755.
%K nonn
%O 0,4
%A _Clark Kimberling_
%E Corrected and extended by _Dean Hickerson_, Oct 10 2001
|
