login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A089097 Convoluted convolved Fibonacci numbers G_j^(10). 0

%I

%S 0,1,6,33,141,552,1946,6435,20001,59345,168760,463385,1232823,3191530,

%T 8061092,19919613,48254154,114812555,268726954,619603435,1409005702,

%U 3163562545,7019574578,15405769535,33467185837,72013318602,153577775602

%N Convoluted convolved Fibonacci numbers G_j^(10).

%H P. Moree, <a href="http://arXiv.org/abs/math.CO/0311205">Convoluted convolved Fibonacci numbers</a>

%F G.f.: (z/10)[1/(1-z-z^2)^10-1/(1-z^2-z^4)^5-1/(1-z^5-z^10)^2+1/(1-z^10-z^20)].

%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(10,j),j=1..40);

%t terms = 27; r = 10; f[z_] := 1/(1 - z - z^2);

%t W = (z/r)*Sum[MoebiusMu[d]*f[z^d]^(r/d), {d, Divisors[r]}]+ O[z]^(terms+1);

%t CoefficientList[W, z] // Rest (* _Jean-Fran├žois Alcover_, Dec 09 2017, from Maple *)

%K nonn

%O 1,3

%A _N. J. A. Sloane_, Dec 05 2003

%E Edited by _Emeric Deutsch_, Mar 06 2004

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 28 08:33 EDT 2020. Contains 337394 sequences. (Running on oeis4.)