A078019 Expansion of (1-x)/(1-x+2*x^2-x^3).

1, 0, -2, -1, 3, 3, -4, -7, 4, 14, -1, -25, -9, 40, 33, -56, -82, 63, 171, -37, -316, -71, 524, 350, -769, -945, 943, 2064, -767, -3952, -354, 6783, 3539, -10381, -10676, 13625, 24596, -13330, -48897, 2359, 86823, 33208, -138079, -117672, 191694, 288959, -212101, -598325, 114836, 1099385, 271388

Offset

0,3

Comments

With 1 prepended, and up to sign this is the q-deformation of 12/5. See Leclere and Morier-Genoud. - Michel Marcus, Jul 01 2021

Links

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

Ludivine Leclere and Sophie Morier-Genoud, q-deformations of the modular group and of the real quadratic irrational numbers, arXiv:2101.02953 [math.NT], 2021. See Example 2.7 p. 6.

Index entries for linear recurrences with constant coefficients, signature (1,-2,1).

Formula

a(n) = a(n-1) - 2*a(n-2) + a(n-3). - Michael Somos, Sep 18 2012

a(n) = -A000931(-2*n - 1). - Michael Somos, Sep 18 2012

G.f.: (1+x)/x^3 - 1/( Q(0) - x )/x^3 where Q(k) = 1 - x^2/(x^2*k - 1 )/Q(k+1) ; (recursively defined continued fraction). - Sergei N. Gladkovskii, Feb 23 2013

a(n) = (-1)^(n-1)*(A077979(n) + A077979(n-1)) = A077954(n) - A077954(n-1). - G. C. Greubel, Jun 29 2019

Example

G.f. = 1 - 2*x^2 - x^3 + 3*x^4 + 3*x^5 - 4*x^6 - 7*x^7 + 4*x^8 + ...

Mathematica

CoefficientList[Series[(1-x)/(1-x+2x^2-x^3), {x, 0, 50}], x] (* or *) LinearRecurrence[{1, -2, 1}, {1, 0, -2}, 51] (* Harvey P. Dale, Feb 18 2013 *)

Prog

(PARI) {a(n) = if( n<0, polcoeff( (1 - 2*x) / (1 - 2*x + x^2 - x^3) + x * O(x^-n), -n), polcoeff( (1 - x) / (1 - x + 2*x^2 - x^3) + x * O(x^n), n))} /* Michael Somos, Sep 18 2012 */
(Magma) R<x>:=PowerSeriesRing(Integers(), 50); Coefficients(R!( (1-x)/(1-x+2*x^2-x^3) )); // G. C. Greubel, Jun 29 2019
(Sage) ((1-x)/(1-x+2*x^2-x^3)).series(x, 50).coefficients(x, sparse=False) # G. C. Greubel, Jun 29 2019
(GAP) a:=[1, 0, -2];; for n in [4..50] do a[n]:=a[n-1]-2*a[n-2]+a[n-3]; od; a; # G. C. Greubel, Jun 29 2019

Crossrefs

Cf. A000931, A077954, A077979.

Sequence in context: A007307 A207617 A141576 * A038071 A032140 A032044

Adjacent sequences: A078016 A078017 A078018 * A078020 A078021 A078022

Keyword

sign,easy

Author

N. J. A. Sloane, Nov 17 2002

Status

approved