OFFSET
0,2
COMMENTS
Floretion Algebra Multiplication Program, FAMP Code: 4tessumseq[ + .25'i + .25i' + .25'ii' + .25'jj' + .25'kk' + .25'jk' + .25'kj' + .25e], sumtype: (Y[15], *, vesy)
LINKS
FORMULA
a(n) - a(n-1) = A054486(n+1).
G.f.: (2*x+1)/((1-x)*(x^2-3*x+1)).
MATHEMATICA
Join[{a=1, b=6}, Table[c=3*b-1*a+3; a=b; b=c, {n, 60}]] (* Vladimir Joseph Stephan Orlovsky, Jan 28 2011 *)
LinearRecurrence[{4, -4, 1}, {1, 6, 20}, 30] (* Harvey P. Dale, Apr 14 2016 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Creighton Dement, Aug 18 2005
STATUS
approved