OFFSET
0,2
COMMENTS
See comment for A110613.
LINKS
Colin Barker, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (5,-2,-8).
FORMULA
G.f.: (1-8*x^2)/((4*x-1)*(2*x-1)*(x+1)).
a(n) + a(n+1) = A063376(n+1).
a(n) = (-7*(-1)^n + 5*2^(1+n) + 3*4^(1+n)) / 15. - Colin Barker, Feb 05 2017
MAPLE
seriestolist(series((1-8*x^2)/((4*x-1)*(2*x-1)*(x+1)), x=0, 25)); -or- Floretion Algebra Multiplication Program, FAMP Code: 2ibasejsumseq[(.5'i - .5'k - .5i' + .5k' - .5'ij' - .5'ji' - .5'jk' - .5'kj')('i + j' + 'ij' + 'ji')] Sumtype is set to: sum[Y[15]] = sum[ * ] (disregarding signs)
MATHEMATICA
LinearRecurrence[{5, -2, -8}, {1, 5, 15}, 30] (* Harvey P. Dale, Dec 28 2013 *)
PROG
(PARI) Vec((1-8*x^2)/((4*x-1)*(2*x-1)*(x+1)) + O(x^30)) \\ Colin Barker, Feb 05 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Creighton Dement, Jul 31 2005
STATUS
approved