OFFSET
1,5
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
FORMULA
G.f.: Sum_{k>=1} x^(3*k)/Product_{j>=k} (1-x^j). - Seiichi Manyama, May 17 2023
EXAMPLE
a(6) counts these partitions: 42, 321, 2211, 21111.
MATHEMATICA
Table[Count[IntegerPartitions[n], p_ /; MemberQ[p, 2*Min[p]]], {n, 50}]
PROG
(PARI) my(N=50, x='x+O('x^N)); concat([0, 0], Vec(sum(k=1, N, x^(3*k)/prod(j=k, N, 1-x^j)))) \\ Seiichi Manyama, May 17 2023
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Mar 01 2014
STATUS
approved