A335228 G.f.: x / (Sum_{k>=1} x^k / (1 + x^k)^2).

1, 1, -3, -2, 9, 0, -32, 18, 108, -118, -333, 576, 911, -2466, -2040, 9702, 2529, -35622, 8254, 122436, -88275, -391882, 501660, 1148334, -2331810, -2949282, 9689949, 5791930, -37155906, -2645148, 133051344, -54698868, -445531893, 408566282, 1383325848, -2115234972

Offset

0,3

Links

Table of n, a(n) for n=0..35.

Formula

G.f.: x / (Sum_{k>=1} (-1)^(k+1) * k * x^k / (1 - x^k)).

G.f.: 1 / log(g(x))', where g(x) = Sum_{k>=0} x^(k*(k + 1)/2) is the g.f. for A010054.

G.f.: 1 / (Sum_{k>=0} A002129(k+1) * x^k).

a(0) = 1; a(n) = -Sum_{k=1..n} A002129(k+1) * a(n-k).

Mathematica

nmax = 35; CoefficientList[Series[x/Sum[x^k/(1 + x^k)^2, {k, 1, nmax + 1}], {x, 0, nmax}], x]
nmax = 35; CoefficientList[Series[1/D[Log[Sum[x^(k (k + 1)/2), {k, 0, nmax}]], x], {x, 0, nmax}], x]
a[0] = 1; a[n_] := a[n] = -Sum[DivisorSum[k + 1, (-1)^(# + 1) # &] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 35}]

Crossrefs

Cf. A002039, A002129, A010054, A180305, A335227.

Sequence in context: A211878 A340461 A060481 * A228492 A340875 A329038

Adjacent sequences: A335225 A335226 A335227 * A335229 A335230 A335231

Keyword

sign

Author

Ilya Gutkovskiy, May 27 2020

Status

approved