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

Author

Creighton Dement, May 25 2005

Keywords

• easy
• nonn

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

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

Crossrefs

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

Programs

Mathematica

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

Formula

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