OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Robert Munafo, Sequences Related to Floretions
Index entries for linear recurrences with constant coefficients, signature (3,5,1).
FORMULA
G.f.: -(1 + 7*x + 2*x^2)/((1 + x)*(x^2 + 4*x - 1)).
a(n) = A001077(n+1) - (-1)^n. - Ehren Metcalfe, Nov 18 2017
MAPLE
seriestolist(series(-(1+7*x+2*x^2)/((1+x)*(x^2+4*x-1)), x=0, 25)); -or- Floretion Algebra Multiplication Program, FAMP Code: 2tesseq[(- 'i + 'j - i' + j' - 'kk' - 'ik' - 'jk' - 'ki' - 'kj')(+ .5'i + .5i' + .5'jj' + .5'kk')]
MATHEMATICA
LinearRecurrence[{3, 5, 1}, {1, 10, 37}, 30] (* Harvey P. Dale, Apr 21 2016 *)
PROG
(PARI) x='x+O('x^50); Vec(-(1+7*x+2*x^2)/((1+x)*(x^2+4*x-1))) \\ G. C. Greubel, Aug 30 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Creighton Dement, Jul 24 2005
STATUS
approved