Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #20 May 22 2024 23:49:02
%S 1,1,2,4,5,8,11,16,23,32,43,59,78,104,137,181,233,303,388,497,630,799,
%T 1003,1262,1574,1961,2430,3008,3701,4551,5569,6805,8284,10070,12195,
%U 14753,17786,21413,25709,30824,36856,44014,52435,62384,74062,87811,103901
%N Number of partitions of n such that 2*(greatest part) > (number of parts).
%C Also, the number of partitions of n such that (greatest part) < 2*(number of parts); hence, the number of partitions of n such that (rank + greatest part) > 0.
%C Also, the number of partitions p of n such that max(max(p), 2*(number of parts of p)) is not a part of p.
%H Seiichi Manyama, <a href="/A237754/b237754.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A000041(n) - A237752(n).
%F G.f.: Sum_{k>=1} x^k * Product_{j=1..k} (1-x^(2*k+j-2))/(1-x^j). - _Seiichi Manyama_, Jan 25 2022
%e a(5) = 5 counts these partitions: 5, 41, 32, 311, 221.
%t z = 50; Table[Count[IntegerPartitions[n], p_ /; 2 Max[p] > Length[p]], {n, z}]
%o (PARI) my(N=66, x='x+O('x^N)); Vec(sum(k=1, N, x^k*prod(j=1, k, (1-x^(2*k+j-2))/(1-x^j)))) \\ _Seiichi Manyama_, Jan 25 2022
%Y Cf. A064173, A237751-A237753, A237755-A237757, A000041.
%K nonn,easy
%O 1,3
%A _Clark Kimberling_, Feb 13 2014