%I A109782
%S A109782 0,1,2,8,21,54,134,329,798,1934,4675,11294,27274,65855,158996,383862,926735,
%T A109782 2237348,5401448,13040263,31481992,76004268,183490549,442985388,1069461348,
%U A109782 2581908109,6233277590,15048463316,36330204249,87708871842,211747947962
%V A109782 0,1,-2,8,-21,54,-134,329,-798,1934,-4675,11294,-27274,65855,-158996,383862,
               -926735,
%W A109782 2237348,-5401448,13040263,-31481992,76004268,-183490549,442985388,-1069461348,
%X A109782 2581908109,-6233277590,15048463316,-36330204249,87708871842,-211747947962
%N A109782 Expansion of x*(1+2*x^2-2*x^3+x^4)/((x-1)*(x^2-2*x-1)*(x^2-x+1)*(x+1)^2).
%o A109782 Floretion Algebra Multiplication Program, FAMP Code: 2jbasesumseq[A*C] 
               with A = + .5'k + .5k' + .5'ii' + .5'jj' and C = - .5'j + .5'k - 
               .5j' + .5k' - 'ii' - .5'ij' - .5'ik' - .5'ji' - .5'ki'; sumtype: 
               sum[Y[15]] = sum[ * ]
%Y A109782 Sequence in context: A000160 A034519 A014409 this_sequence A123044 A143229 
               A123285
%Y A109782 Adjacent sequences: A109779 A109780 A109781 this_sequence A109783 A109784 
               A109785
%K A109782 easy,sign
%O A109782 0,3
%A A109782 Creighton Dement (creighton.k.dement(AT)uni-oldenburg.de), Aug 13 2005