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 A015755 #38 May 18 2020 19:23:13 %S A015755 1,1,1,2,2,3,4,5,5,7,9,10,13,15,18,22,27,31,37,44,51,61,71,82,95,111, %T A015755 128,148,171,195,225,258,295,337,384,437,497,565,639,724,818,923,1042, %U A015755 1173,1319,1483,1665,1866,2092,2341,2616,2924,3263,3637,4053,4512,5016 %N A015755 Number of partitions of n into distinct parts, none being 8. %H A015755 Vincenzo Librandi, <a href="/A015755/b015755.txt">Table of n, a(n) for n = 0..1000</a> %F A015755 a(n) = A015743(n+8). - _Michel Marcus_, Feb 20 2014 %F A015755 a(n) = A000009(n) - a(n-8) for n >= 0, a(n) = 0 otherwise. - _Yuchun Ji_, Dec 25 2018 %t A015755 CoefficientList[Series[Product[1+q^n, {n, 1, 60}]/(1+q^8), {q, 0, 60}], q] %t A015755 Table[Count[Select[IntegerPartitions[n], DeleteDuplicates[#] == # &], x_ /; ! MemberQ[x, 8]], {n, 0, 56}] (* _Robert Price_, May 18 2020 *) %Y A015755 Cf. A025147, A015744, A015745, A015746, A015750, A015753, A015754. %K A015755 nonn %O A015755 0,4 %A A015755 _Clark Kimberling_ %E A015755 Corrected and extended by _Dean Hickerson_, Oct 10 2001