OFFSET
0,2
COMMENTS
LINKS
Matthew House, Table of n, a(n) for n = 0..1454
Robert Munafo, Sequences Related to Floretions
Index entries for linear recurrences with constant coefficients, signature (4,8,-16,-16).
FORMULA
a(n) = 4*a(n-1) + 8*a(n-2) - 16*a(n-3) - 16*a(n-4). - Matthew House, Feb 17 2017
a(n) = (-3*(2-2*sqrt(2))^n*(-2+sqrt(2)) + 2^n*(-2*(1+(-1)^n)+3*(1+sqrt(2))^n*(2+sqrt(2)))) / 8. - Colin Barker, Feb 17 2017
MAPLE
seriestolist(series((1+2*x-4*x^2)/((2*x+1)*(2*x-1)*(4*x^2+4*x-1)), x=0, 25)); -or- Floretion Algebra Multiplication Program, FAMP Code: -kbasekseq[A*B] with A = + 'i - .5'j + .5'k - .5j' + .5k' - 'ii' - .5'ij' - .5'ik' - .5'ji' - .5'ki' and B = - .5'i + .5'j + 'k - .5i' + .5j' - 'kk' - .5'ik' - .5'jk' - .5'ki' - .5'kj'
MATHEMATICA
CoefficientList[Series[(1 + 2 x - 4 x^2)/((2 x + 1)(2 x - 1)(4 x^2 + 4 x - 1)), {x, 0, 21}], x] (* or *)
LinearRecurrence[{4, 8, -16, -16}, {1, 6, 28, 144}, 22] (* Michael De Vlieger, Feb 17 2017 *)
PROG
(PARI) Vec((1+2*x-4*x^2) / ((2*x+1)*(2*x-1)*(4*x^2+4*x-1)) + O(x^30)) \\ Colin Barker, Feb 17 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Creighton Dement, Jul 10 2005
EXTENSIONS
Definition corrected by Matthew House, Feb 17 2017
STATUS
approved