login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A110046 Expansion of (1+4*x-12*x^2-16*x^3)/((2*x+1)*(2*x-1)*(4*x^2+4*x-1)). 3
1, 8, 28, 144, 656, 3200, 15296, 73984, 356608, 1722368, 8313856, 40144896, 193826816, 935886848, 4518821888, 21818834944, 105350496256, 508677324800, 2456110759936, 11859152338944, 57261050298368, 276480810549248 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,2
LINKS
FORMULA
From Colin Barker, May 01 2019: (Start)
a(n) = ((2 - 2*sqrt(2))^(1+n) + 2*(-(-2)^n + 2^n + 2^n*(1+sqrt(2))^(1+n))) / 4.
a(n) = 4*a(n-1) + 8*a(n-2) - 16*a(n-3) - 16*a(n-4) for n>3.
(End)
MAPLE
seriestolist(series((1+4*x-12*x^2-16*x^3)/((2*x+1)*(2*x-1)*(4*x^2+4*x-1)), x=0, 25)); -or- Floretion Algebra Multiplication Program, FAMP Code: tesseq[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+4x-12x^2-16x^3)/((2x+1)(2x-1)(4x^2+4x-1)), {x, 0, 40}], x] (* or *) LinearRecurrence[{4, 8, -16, -16}, {1, 8, 28, 144}, 40] (* Harvey P. Dale, Jun 12 2016 *)
PROG
(PARI) Vec((1 + 4*x - 12*x^2 - 16*x^3) / ((1 - 2*x)*(1 + 2*x)*(1 - 4*x - 4*x^2)) + O(x^40)) \\ Colin Barker, May 01 2019
CROSSREFS
Sequence in context: A241893 A200188 A255276 * A027380 A226744 A058289
KEYWORD
easy,nonn
AUTHOR
Creighton Dement, Jul 10 2005
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 21:57 EDT 2024. Contains 371254 sequences. (Running on oeis4.)