OFFSET
1,8
COMMENTS
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.
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..1000
FORMULA
G.f.: Sum_{k>=1} x^(3*k-1) * Product_{j=1..k-1} (1-x^(2*k+j-1))/(1-x^j). - Seiichi Manyama, Jan 24 2022
EXAMPLE
a(8) = 2 counts these partitions: 311111, 2222.
MATHEMATICA
z = 50; Table[Count[IntegerPartitions[n], p_ /; 2 Max[p] = = Length[p]], {n, z}]
PROG
(PARI) my(N=66, x='x+O('x^N)); concat(0, Vec(sum(k=1, N, x^(3*k-1)*prod(j=1, k-1, (1-x^(2*k+j-1))/(1-x^j))))) \\ Seiichi Manyama, Jan 24 2022
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Feb 13 2014
STATUS
approved