(MAGMAMagma) m:=20; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(1/((1-3*x)*(1-8*x)*(1-9*x)))); /* or */ I:=[1, 20, 277]; [n le 3 select I[n] else 20*Self(n-1)-123*Self(n-2)+216*Self(n-3): n in [1..20]]; // Vincenzo Librandi, Jul 02 2013
(MAGMAMagma) m:=20; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(1/((1-3*x)*(1-8*x)*(1-9*x)))); /* or */ I:=[1, 20, 277]; [n le 3 select I[n] else 20*Self(n-1)-123*Self(n-2)+216*Self(n-3): n in [1..20]]; // Vincenzo Librandi, Jul 02 2013
editing
approved
LinearRecurrence[{20, -123, 216}, {1, 20, 277}, 20] (* Harvey P. Dale, Aug 24 2019 *)
approved
editing
editing
approved
Expansion of 1/((1-3x3*x)*(1-8x8*x)*(1-9x9*x)).
approved
editing
<a href="/index/Rec">Index to sequences with entries for linear recurrences with constant coefficients</a>, signature (20,-123,216).
<a href="/index/Rea#recLCCRec">Index to sequences with linear recurrences with constant coefficients</a>, signature (20,-123,216).
proposed
approved
editing
proposed
a(n) = (5*9^(n+2) - 6*8^(n+2) + 3^(n+2))/30. [Yahia Kahloune, Jul 06 2013]
approved
editing