This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A015746 #22 Jul 03 2025 18:22:36
%S A015746 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 A015746 107,124,142,164,189,216,248,284,323,369,420,476,541,613,693,784,885,
%U A015746 997,1123,1264,1419,1593,1787,2000,2239,2504,2795,3120,3479,3874,4313
%N A015746 Number of partitions of n into distinct parts, none being 4.
%H A015746 Vincenzo Librandi, <a href="/A015746/b015746.txt">Table of n, a(n) for n = 0..1000</a>
%F A015746 a(n) = A015739(n+4). - _Michel Marcus_, Feb 20 2014
%t A015746 CoefficientList[Series[Product[1+q^n, {n, 1, 60}]/(1+q^4), {q, 0, 60}], q]
%t A015746 Table[Count[Select[IntegerPartitions[n], DeleteDuplicates[#] == # &], x_ /; ! MemberQ[x, 4]], {n, 0, 56}] (* _Robert Price_, May 17 2020 *)
%Y A015746 Cf. A025147, A015744, A015745, A015750, A015753, A015754, A015755.
%K A015746 nonn
%O A015746 0,4
%A A015746 _Clark Kimberling_
%E A015746 Corrected and extended by _Dean Hickerson_, Oct 10 2001