|
|
A111352
|
|
a(n+3) = a(n+2) + 3*a(n+1) + a(n).
|
|
1
|
|
|
1, -1, 2, 0, 5, 7, 22, 48, 121, 287, 698, 1680, 4061, 9799, 23662, 57120, 137905, 332927, 803762, 1940448, 4684661, 11309767, 27304198, 65918160, 159140521, 384199199, 927538922, 2239277040, 5406093005
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
Floretion Algebra Multiplication Program, FAMP Code: 2jbasekrokseq[A*H] with A = + .25'i + .25i' + .25'ii' + .25'jj' + .25'kk' + .25'jk' + .25'kj' + .25e; H = - 2'i - 'j + 'k; roktype : Y[15] = Y[15] + (-1)^p (internal program code)
|
|
LINKS
|
|
|
FORMULA
|
a(n) = (1/4*sqrt(2)-1/4)*(1+sqrt(2))^n + (-1/4*sqrt(2)-1/4)*(1-sqrt(2))^n + 3/2*(-1)^n.
G.f.: (2*x-1)/((x+1)*(x^2+2*x-1)).
|
|
MATHEMATICA
|
LinearRecurrence[{1, 3, 1}, {1, -1, 2}, 30] (* Harvey P. Dale, Jul 26 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|