%I A109610
%S A109610 1,1,1,1,4,4,4,2,2,2,3,3,3,3,3,3,6,6,6,4,4,4,5,5,5,5,5,5,8,8,8,6,6,6,7,
%T A109610 7,7,7,7,7,10,10,10,8,8,8,9,9,9,9,9,9,12,12,12,10,10,10,11,11,11,11,11,
%U A109610 11,14,14,14,12,12,12,13,13,13,13,13,13,16,16,16,14,14,14,15,15,15,15
%N A109610 Expansion of (1+3*x^4-2*x^7+x^10-x^12)/((x+1)*(x^2+1)*(x^2+x+1)*(x^2-x+1)*(x^4-x^2+1)*(x-1)^2).
%p A109610 seriestolist(series((1+3*x^4-2*x^7+x^10-x^12)/((x+1)*(x^2+1)*(x^2+x+1)*(x^2-x+1)*(x^4-x^2+1)*(x-1)^2), 
               x=0,150)); -or- Floretion Algebra Multiplication Program, FAMP Code: 
               4baseisumseq[ .25'i + .25i' + .25'ii' + .25'jj' + .25'kk' + .25'jk' 
               + .25'kj' + .25e]. Sumtype is set to: sum[Y[15]] = sum[ * ]
%Y A109610 Sequence in context: A133889 A117683 A159891 this_sequence A067395 A016708 
               A105724
%Y A109610 Adjacent sequences: A109607 A109608 A109609 this_sequence A109611 A109612 
               A109613
%K A109610 nonn
%O A109610 0,5
%A A109610 Creighton Dement (creighton.k.dement(AT)uni-oldenburg.de), Jul 31 2005