%I A089108
%S A089108 3,5,7,10,13,16,20,24,28,33,38,43,49,55,61,68,75,82,90,98,106,115,124,
%T A089108 133,143,153,163,174,185,196,208,220,232,245,258,271,285,299,313,328,
%U A089108 343,358,374,390,406,423,440,457,475,493,511,530,549,568,588,608,628
%N A089108 Convoluted convolved Fibonacci numbers G_4^(r).
%H A089108 P. Moree, <a href="http://arXiv.org/abs/math.CO/0311205">Convoluted convolved 
               Fibonacci numbers</a>
%F A089108 G.f.: x(x^4-2x^3-x+3)/[(1-x^3)(1-x)^2].
%p A089108 with(numtheory): f := z->1/(1-z-z^2): m := proc(r,j) d := divisors(r): 
               W := (1/r)*z*sum(mobius(d[i])*f(z^d[i])^(r/d[i]),i=1..nops(d)): Wser 
               := simplify(series(W,z=0,80)): coeff(Wser,z^j) end: seq(m(r,4),r=1..60);
%Y A089108 Sequence in context: A003070 A036604 A001768 this_sequence A029899 A072166 
               A077000
%Y A089108 Adjacent sequences: A089105 A089106 A089107 this_sequence A089109 A089110 
               A089111
%K A089108 nonn
%O A089108 1,1
%A A089108 N. J. A. Sloane (njas(AT)research.att.com), Dec 05 2003
%E A089108 Edited by Emeric Deutsch (deutsch(AT)duke.poly.edu), Mar 06 2004