A107853 Expansion of g.f. x*(x-1)*(x+1)^3/((2*x^3+x^2-1)*(x^4+1)).

0, 1, 2, 1, 2, 3, 2, 7, 10, 13, 26, 33, 50, 83, 114, 183, 282, 413, 650, 977, 1474, 2275, 3426, 5223, 7978, 12077, 18426, 28033, 42578, 64883, 98642, 150039, 228410, 347325, 528490, 804145, 1223138, 1861123, 2831426, 4307399, 6553674, 9970253

Offset

0,3

Comments

Floretion Algebra Multiplication Program, FAMP Code: - 2basejforzapseq[(.5i' + .5j' + .5'ki' + .5'kj')*(.5'i + .5'j + .5'ik' + .5'jk')], 1vesforzap = A000004

Links

Table of n, a(n) for n=0..41.

Index entries for linear recurrences with constant coefficients, signature (0,1,2,-1,0,1,2).

Formula

a(n) = 2*A159287(n) + A091337(n+6).

Mathematica

LinearRecurrence[{0, 1, 2, -1, 0, 1, 2}, {0, 1, 2, 1, 2, 3, 2}, 50] (* Harvey P. Dale, Jan 24 2018 *)

Crossrefs

Cf. A107849, A107850, A107851, A107852, A107854.

Sequence in context: A214720 A035368 A249686 * A054758 A077876 A095056

Adjacent sequences: A107850 A107851 A107852 * A107854 A107855 A107856

Keyword

easy,nonn

Author

Creighton Dement, May 25 2005

Status

approved