%I A100888
%S A100888 3,1,2,7,7,12,23,33,54,91,143,232,379,609,986,1599,2583,4180,6767,10945,
%T A100888 17710,28659,46367,75024,121395,196417,317810,514231,832039,1346268,
%U A100888 2178311,3524577,5702886,9227467,14930351,24157816,39088171,63245985
%N A100888 Expansion of (3+x-x^2)/((1+x+x^2)(1-x-x^2)).
%C A100888 This sequence was investigated in cooperation with Paul Barry. Generating 
               floretion: - 0.5'i - 0.5'k - 0.5j' - 0.5'ii' + 0.5'jj' - 0.5'kk' 
               + 0.5'ik' - 0.5'ki' ("jes"). A100885(n) = (1/2)(A100886(n) + A100887(n) 
               - a(n))
%F A100888 a(n) = Fib(n+2)+sqrt(3)cos(2pi*n/3 + pi/6)+sin(2pi*n/3 + pi/6); a(n)=a(n-2)+2a(n-3)+a(n-4), 
               a(0) = 3, a(1) = 1, a(2) = 2, a(3) = 7
%t A100888 a[0] = 3; a[1] = 1; a[2] = 2; a[3] = 7; a[n_] := a[n] = a[n - 2] + 2a[n 
               - 3] + a[n - 4]; Table[ a[n], {n, 0, 37}] (from Robert G. Wilson 
               v Nov 26 2004)
%t A100888 CoefficientList[ Series[(3 + x - x^2)/((1 + x + x^2)(1 - x - x^2)), {x, 
               0, 37}], x] (from Robert G. Wilson v Nov 26 2004)
%o A100888 Floretion Algebra Multiplication Program
%Y A100888 Cf. A100885, A100886, A100887, A100889, A100890.
%Y A100888 Sequence in context: A151855 A135338 A084602 this_sequence A052914 A131671 
               A060750
%Y A100888 Adjacent sequences: A100885 A100886 A100887 this_sequence A100889 A100890 
               A100891
%K A100888 nonn
%O A100888 0,1
%A A100888 Creighton Dement (creighton.k.dement(AT)uni-oldenburg.de), Nov 21 2004
%E A100888 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 26 2004