A324493 Expansion of (1-18*x+x^2)^3*(1+18*x+x^2)^3*(1-x^2)^10/((1-76*x-x^2)*(1-4*x-x^2)^6*(1+4*x-x^2)^9).

1, 64, 4096, 321088, 24547328, 1863823936, 141685338112, 10769916519488, 818653646495744, 62228468364344384, 4730181951405740032, 359556059457398798912, 27330990675083174064128, 2077514847565542865559104, 157918459404050737749520384, 12003880429566848976629213248

Offset

0,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..540

M. Baake, J. Hermisson, P. Pleasants, The torus parametrization of quasiperiodic LI-classes, J. Phys. A 30 (1997), no. 9, 3029-3056. See (43).

Index entries for linear recurrences with constant coefficients, signature (64, 976, -3520, -95480, -58304, 4003696, 9372224, -88169500, -311951040, 1032813264, 5056275264, -5294928584, -42666546880, -2907723280, 164947799872, 96112576442, -164947799872, -2907723280, 42666546880, -5294928584, -5056275264, 1032813264, 311951040, -88169500, -9372224, 4003696, 58304, -95480, 3520, 976, -64, -1).

Formula

G.f.: (1-18*x+x^2)^3*(1+18*x+x^2)^3*(1-x^2)^10/((1-76*x-x^2)*(1-4*x-x^2)^6*(1+4*x-x^2)^9).

Mathematica

CoefficientList[Series[(1 - 18 x + x^2)^3 (1 + 18 x + x^2)^3 (1 - x^2)^10 / ((1 - 76 x - x^2) (1 - 4 x - x^2)^6 (1 + 4 x - x^2)^9), {x, 0, 18}], x] (* Vincenzo Librandi, Mar 13 2019 *)

Prog

(Magma) m:=16; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(1-18*x+x^2)^3*(1+18*x+x^2)^3*(1-x^2)^10/((1-76*x-x^2)*(1-4*x-x^2)^6*(1+4*x-x^2)^9)); // Vincenzo Librandi, Mar 13 2019

Crossrefs

Sequence in context: A267994 A089357 A144320 * A324490 A262396 A318015

Adjacent sequences: A324490 A324491 A324492 * A324494 A324495 A324496

Keyword

nonn,easy

Author

N. J. A. Sloane, Mar 12 2019

Status

approved