A207814 Series expansion of the reciprocal of the generating function of A068432.

1, -1, 1, -1, 0, 0, -1, 1, 0, 0, 2, -3, 3, -3, -1, 3, -6, 9, -6, 4, 3, -10, 12, -14, 3, 11, -24, 38, -33, 19, 11, -51, 72, -81, 50, 15, -87, 158, -167, 110, 15, -198, 342, -402, 303, -25, -342, 713, -880, 710, -180, -651, 1463, -1927, 1692, -577, -1170

Offset

0,11

Comments

Generating function A(x) has A(1/2) = 1/GoldenRatio = GoldenRatio - 1.

Links

G. C. Greubel, Table of n, a(n) for n = 0..2500

Formula

Convolution inverse of A068432. - Michael Somos, Feb 23 2012

Example

1 - x + x^2 - x^3 - x^6 + x^7 + 2*x^10 - 3*x^11 + 3*x^12 - 3*x^13 - x^14 + ...

Mathematica

d = RealDigits[GoldenRatio, 2, 1000][[1]]; CoefficientList[Series[1/Sum[d[[n]] x^(n-1), {n, 1, 1000}], {x, 0, 100}], x]

Crossrefs

Cf. A068432, A001622.

Sequence in context: A061911 A328397 A082239 * A062745 A140733 A143605

Adjacent sequences: A207811 A207812 A207813 * A207815 A207816 A207817

Keyword

sign,easy,base

Author

Ben Branman, Feb 20 2012

Status

approved