OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,-1).
FORMULA
From Colin Barker, Mar 23 2017: (Start)
G.f.: 8*x*(2 + 3*x + 4*x^2 + 5*x^3 + 7*x^4 + 8*x^5 + 9*x^6 + x^7 + 8*x^8 + 7*x^9 + 6*x^10 + 5*x^11 + 3*x^12 + 2*x^13 + x^14) / ((1 - x)^2*(1 + x)^2*(1 + x^2)^2*(1 + x^4)^2).
a(n) = 2*a(n-8) - a(n-16) for n>16.
(End)
MATHEMATICA
Table[ If[Mod[n, 8]==0, n, If[Mod[10 n, 8]==0, 10 n, 10 n + 8 - Mod[10 n, 8]]], {n, 56}] (* Ray Chandler, Feb 09 2014 *)
LinearRecurrence[{0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, -1}, {16, 24, 32, 40, 56, 64, 72, 8, 96, 104, 112, 120, 136, 144, 152, 16}, 60] (* Harvey P. Dale, Apr 10 2022 *)
PROG
(PARI) Vec(8*x*(2 + 3*x + 4*x^2 + 5*x^3 + 7*x^4 + 8*x^5 + 9*x^6 + x^7 + 8*x^8 + 7*x^9 + 6*x^10 + 5*x^11 + 3*x^12 + 2*x^13 + x^14) / ((1 - x)^2*(1 + x)^2*(1 + x^2)^2*(1 + x^4)^2) + O(x^60)) \\ Colin Barker, Mar 23 2017
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Amarnath Murthy, Apr 20 2003
EXTENSIONS
Drop 48 and extended by Ray Chandler, Feb 09 2014
Typo in Mathematica program fixed by Vincenzo Librandi, Feb 10 2014
STATUS
approved