OFFSET
0,2
COMMENTS
Floretion Algebra Multiplication Program, FAMP Code: 1kbasesumseq[A*B] with A = + 'i + 'ii' + 'ij' + 'ik' and B = + .5'i - .5'j + .5'k + .5i' + .5j' - .5k' - .5'ij' - .5'ik' + .5'ji' + .5'ki' Sumtype is set to: sum[(Y[0], Y[1], Y[2]),mod(3).
LINKS
FORMULA
G.f.: (1+2*x)/((x-1)*(6*x^2+6*x+1)).
a(n) = (-3+(-3-sqrt(3))^n*(-5-2*sqrt(3))+(-3+sqrt(3))^n*(-5+2*sqrt(3)))/13. - Harvey P. Dale, Mar 28 2012 [corrected by Jason Yuen, Aug 29 2025]
MAPLE
S := taylor((1+2*x)/((x-1)*(6*x^2+6*x+1)), x, 25):
seq(coeff(S, x, n), n=0..20);
MATHEMATICA
LinearRecurrence[{-5, 0, 6}, {-1, 3, -15}, 30] (* Harvey P. Dale, Mar 28 2012 *)
CROSSREFS
KEYWORD
easy,sign
AUTHOR
Creighton Dement, Jul 16 2005
STATUS
approved
