OFFSET
0,3
FORMULA
EXAMPLE
a(10) = 38 because there are 42 unrestricted partitions of 10. All of these except the following four are counted by this sequence: 8+2,5+3+2,4+3+3,4+2+2+2.
MATHEMATICA
nn=51; a=Product[1/(1-x^k), {k, 1, nn}]; b= x(Product[1/(1-x^k), {k, 3, nn}]-1); CoefficientList[Series[a-b, {x, 0, nn}], x]
PROG
(PARI) x='x+O('x^66); Vec( 1/eta(x) - x*(1-x)*(1-x^2)/eta(x) + x )
CROSSREFS
KEYWORD
nonn
AUTHOR
Geoffrey Critzer and Joerg Arndt, Oct 01 2013
STATUS
approved