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 A373076 #13 May 24 2025 18:31:55 %S A373076 1,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,3,3,4,4,5,5,6,6,7,7, %T A373076 8,8,9,9,10,10,11,11,12,12,13,13,14,14,16,16,18,19,21,22,25,26,29,31, %U A373076 34,36,40,42,46,49,53,56,61,64,69,73,78,82,88,92,98,103,109,114,121,126,133,139,146,152,161 %N A373076 Number of partitions of n such that (smallest part) > 5*(number of parts). %C A373076 This sequence is different from A350898. %F A373076 G.f.: Sum_{k>=0} x^(5*k^2+k)/Product_{j=1..k} (1-x^j). %t A373076 Join[{1},Table[Count[IntegerPartitions[n],_?(#[[-1]]>5Length[#]&)],{n,90}]] (* _Harvey P. Dale_, May 24 2025 *) %o A373076 (PARI) my(N=90, x='x+O('x^N)); Vec(sum(k=0, N, x^(5*k^2+k)/prod(j=1, k, 1-x^j))) %Y A373076 Cf. A003106, A373073, A373074, A373075. %Y A373076 Cf. A350899, A373070. %K A373076 nonn %O A373076 0,23 %A A373076 _Seiichi Manyama_, May 22 2024