OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..200
Index entries for linear recurrences with constant coefficients, signature (8,0,1,-8).
FORMULA
a(n) = 8*a(n-1) + a(n-3) - 8*a(n-4).
G.f.: x / ((x-1)*(8*x-1)*(x^2+x+1)). - Colin Barker, Apr 30 2014
a(n) = round( (64/511)*8^n ). - Tani Akinari, Jul 15 2014
MATHEMATICA
Module[{nn=30, d}, d=PadRight[{}, nn, {1, 0, 0}]; Table[FromDigits[Take[d, n], 8], {n, nn}]] (* or *) LinearRecurrence[{8, 0, 1, -8}, {1, 8, 64, 513}, 50] (* Harvey P. Dale, Nov 13 2013 *)
CoefficientList[Series[1/((x - 1) (8 x - 1) (x^2 + x + 1)), {x, 0, 40}], x] (* Vincenzo Librandi, May 01 2014 *)
PROG
(PARI) Vec(x/((x-1)*(8*x-1)*(x^2+x+1)) + O(x^100)) \\ Colin Barker, Apr 30 2014
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
EXTENSIONS
More terms from Harvey P. Dale, Nov 13 2013
STATUS
approved