OFFSET
0,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1000
Ran Pan, A note on enumerating colored integer partitions, arXiv:1509.06107 [math.CO], 2015.
FORMULA
G.f.: -1/2 + (3/2)*Product_{k>=1} 1/(1-2*x^k).
a(n) = floor(3/2*A070933(n)).
a(n) = Sum_{k=0..3} 6/k! * A262495(n,3-k). - Alois P. Heinz, Sep 24 2015
EXAMPLE
a(2) = 9 because there are two integer partitions of 2: [2], [1,1] and there are three ways to color [2] and 3 X 2 = 6 ways to color [1,1].
MAPLE
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
b(n, i-1) +`if`(i>n, 0, 2*b(n-i, i))))
end:
a:= n-> floor(b(n$2)/2*3):
seq(a(n), n=0..50); # Alois P. Heinz, Sep 23 2015
MATHEMATICA
Rest[CoefficientList[Series[3/2 Product[1/(1 - 2 x^k), {k, 1, 35}], {x, 0, 35}], x]] (* Vincenzo Librandi, Sep 23 2015 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Ran Pan, Sep 23 2015
STATUS
approved