A107853 - OEIS

%I #21 Mar 14 2024 15:19:57

%S 0,1,2,1,2,3,2,7,10,13,26,33,50,83,114,183,282,413,650,977,1474,2275,

%T 3426,5223,7978,12077,18426,28033,42578,64883,98642,150039,228410,

%U 347325,528490,804145,1223138,1861123,2831426,4307399,6553674,9970253

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

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

%H <a href="/index/Rec#order_07">Index entries for linear recurrences with constant coefficients</a>, signature (0,1,2,-1,0,1,2).

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

%t LinearRecurrence[{0,1,2,-1,0,1,2},{0,1,2,1,2,3,2},50] (* _Harvey P. Dale_, Jan 24 2018 *)

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

%K easy,nonn

%O 0,3

%A _Creighton Dement_, May 25 2005