A281666 Expansion of Sum_{i>=1} x^(i*(i+1)/2)/(1 + x^(i*(i+1)/2)) * Product_{j>=1} (1 + x^(j*(j+1)/2)).
1, 0, 1, 2, 0, 1, 2, 0, 2, 4, 2, 0, 2, 3, 1, 4, 3, 2, 6, 4, 3, 5, 0, 5, 9, 3, 2, 7, 6, 3, 11, 10, 0, 9, 12, 3, 11, 10, 8, 11, 8, 9, 9, 6, 12, 19, 15, 7, 15, 16, 4, 20, 21, 10, 23, 24, 10, 16, 19, 18, 20, 20, 17, 24, 27, 18, 28, 26, 19, 33, 30, 12, 33, 39, 25, 36, 38, 16, 32, 44, 29, 41, 48, 37, 41, 45, 33, 39, 44, 41
Offset: 1
Keywords
Examples
a(10) = 4 because we have [10], [6, 3, 1] and 1 + 3 = 4.
Links
Programs
-
Mathematica
nmax = 90; Rest[CoefficientList[Series[Sum[x^(i (i + 1)/2)/(1 + x^(i (i + 1)/2)), {i, 1, nmax}] Product[1 + x^(j (j + 1)/2), {j, 1, nmax}], {x, 0, nmax}], x]]
Formula
G.f.: Sum_{i>=1} x^(i*(i+1)/2)/(1 + x^(i*(i+1)/2)) * Product_{j>=1} (1 + x^(j*(j+1)/2)).
Comments