A109430 Period 24.

0, -1, -5, -4, 2, 1, 1, -6, 0, 3, 3, 0, -2, 1, 5, 2, -4, -1, -1, 4, -2, -3, -3, -2, 0, -1, -5, -4, 2, 1, 1, -6, 0, 3, 3, 0, -2, 1, 5, 2, -4, -1, -1, 4, -2, -3, -3, -2, 0, -1, -5, -4, 2, 1, 1, -6, 0, 3, 3, 0, -2, 1, 5, 2, -4, -1, -1, 4, -2, -3, -3, -2, 0, -1, -5, -4, 2, 1, 1, -6, 0, 3, 3, 0, -2, 1, 5, 2, -4, -1

Offset

0,3

Comments

Floretion Algebra Multiplication Program, FAMP Code: 2tessumseq[ + .5'k + .5i' + .5j' + .5'kk'], sumtype: (Y[15], *, sum)

Links

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

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

Formula

G.f.: x*(1 + 4*x - 2*x^3 - 6*x^5 + 8*x^6 - 6*x^7 + 4*x^8 - 6*x^9 + 2*x^11 + x^12 + 2*x^13)/((x - 1)*(x^2 + 1)*(x^4 + 1)*(x^8 - x^4 + 1)).

Mathematica

LinearRecurrence[{1, -1, 1, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1, -1, 1}, {0, -1, -5, -4, 2, 1, 1, -6, 0, 3, 3, 0, -2, 1, 5}, 100] (* Jinyuan Wang, Feb 28 2020 *)

Crossrefs

Sequence in context: A286680 A201680 A349409 * A085917 A180130 A242600

Adjacent sequences: A109427 A109428 A109429 * A109431 A109432 A109433

Keyword

easy,sign

Author

Creighton Dement, Aug 26 2005

Status

approved