cp's OEIS Frontend

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.

A373076 Number of partitions of n such that (smallest part) > 5*(number of parts).

This page as a plain text file.
%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