OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Alice V. Kleeva, Grid for this sequence
Alice V. Kleeva, Illustration of initial terms
Robert Munafo, Sequence A169720, and two others by Alice V. Kleeva
Robert Munafo, Sequence A169720, and two others by Alice V. Kleeva [Cached copy, in pdf format, included with permission]
Index entries for linear recurrences with constant coefficients, signature (13,-39,27).
FORMULA
a(n)= +13*a(n-1) -39*a(n-2) +27*a(n-3). G.f.: x*( -9+68*x-75*x^2 ) / ( (x-1)*(3*x-1)*(9*x-1) ). [R. J. Mathar, Apr 26 2010]
MATHEMATICA
CoefficientList[Series[(-9 + 68 x - 75 x^2)/((x - 1) (3 x - 1) (9 x - 1)), {x, 0, 40}], x] (* Vincenzo Librandi, Dec 03 2012 *)
LinearRecurrence[{13, -39, 27}, {9, 49, 361}, 20] (* Harvey P. Dale, Apr 23 2024 *)
PROG
(Magma) I:=[9, 49, 361]; [n le 3 select I[n] else 13*Self(n-1) - 39*Self(n-2) + 27*Self(n-3): n in [1..30]]; // Vincenzo Librandi, Dec 03 2012
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Alice V. Kleeva (alice27353(AT)gmail.com), Jan 19 2010
EXTENSIONS
G.f. adapted to the offset by Vincenzo Librandi, Dec 03 2012
STATUS
approved