OFFSET
0,6
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
FORMULA
a(n) = A015737(n+3). - Michel Marcus, Feb 20 2014
a(n) ~ exp(Pi*sqrt(n/3)) / (8*3^(1/4)*n^(3/4)). - Vaclav Kotesovec, Oct 30 2015
MATHEMATICA
CoefficientList[Series[Product[1+q^n, {n, 1, 60}]/(1+q^3), {q, 0, 60}], q]
Table[Count[Select[IntegerPartitions[n], DeleteDuplicates[#] == # &], x_ /; ! MemberQ[x, 3]], {n, 0, 56}] (* Robert Price, May 17 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected and extended by Dean Hickerson, Oct 10 2001
STATUS
approved