|
%I #8 Nov 28 2017 06:39:03
%S 0,1,4,13,38,102,259,626,1457,3287,7224,15529,32746,67907,138767,
%T 279895,558020,1100930,2151610,4169060,8015125,15299090,29010460,
%U 54676270,102469595,191037405,354426478,654575187,1203777114,2204962989
%N Convoluted convolved Fibonacci numbers G_j^(5).
%H P. Moree, <a href="http://arXiv.org/abs/math.CO/0311205">Convoluted convolved Fibonacci numbers</a>
%F G.f.: (z/5)[1/(1-z-z^2)^5-1/(1-z^5-z^10)].
%p 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(5,j),j=1..40);
%t f[z_] := 1/(1 - z - z^2);
%t m[r_] := (z/r)*Sum[MoebiusMu[d]*f[z^d]^(r/d), {d, Divisors[r]}];
%t CoefficientList[m[5] + O[z]^31, z] // Rest (* _Jean-François Alcover_, Nov 28 2017, from Maple *)
%K nonn
%O 1,3
%A _N. J. A. Sloane_, Dec 05 2003
%E Edited by _Emeric Deutsch_, Mar 06 2004
|
