A015746 - OEIS

%I #20 May 18 2020 06:38:43

%S 1,1,1,2,1,2,3,3,5,6,7,9,10,12,15,18,22,26,31,36,42,50,58,68,80,92,

%T 107,124,142,164,189,216,248,284,323,369,420,476,541,613,693,784,885,

%U 997,1123,1264,1419,1593,1787,2000,2239,2504,2795,3120,3479,3874,4313

%N Number of partitions of n into distinct parts, none being 4.

%H Vincenzo Librandi, <a href="/A015746/b015746.txt">Table of n, a(n) for n = 0..1000</a>

%F a(n) = A015739(n+4). - _Michel Marcus_, Feb 20 2014

%t CoefficientList[Series[Product[1+q^n, {n, 1, 60}]/(1+q^4), {q, 0, 60}], q]

%t Table[Count[Select[IntegerPartitions[n], DeleteDuplicates[#] == # &], x_ /; ! MemberQ[x, 4]], {n, 0, 56}] (* _Robert Price_, May 17 2020 *)

%Y Cf. A025147, A015744, A015745, A015750, A015753, A015754, A015755.

%K nonn

%O 0,4

%A _Clark Kimberling_

%E Corrected and extended by _Dean Hickerson_, Oct 10, 2001