|
%I #14 Mar 28 2018 05:19:09
%S 0,1,5,20,70,222,654,1817,4815,12265,30217,72344,168950,386050,865264,
%T 1906260,4135320,8846700,18687800,39023300,80630770,164990461,
%U 334599050,672958200,1343096325,2661417579,5238577803,10246976040,19926439195
%N Convoluted convolved Fibonacci numbers G_j^(7).
%H P. Moree, <a href="https://arxiv.org/abs/math/0311205">Convoluted convolved Fibonacci numbers</a>, arXiv:math/0311205 [math.CO], 2003.
%H Pieter Moree, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL7/Moree/moree12.html">Convoluted Convolved Fibonacci Numbers</a>, Journal of Integer Sequences, Vol. 7 (2004), Article 04.2.2.
%F G.f.: (z/7)[1/(1-z-z^2)^7-1/(1-z^7-z^14)].
%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(7,j),j=1..40);
%t (1/7)(1/(1-z-z^2)^7-1/(1-z^7-z^14)) + O[z]^30 // CoefficientList[#, z]& (* _Jean-François Alcover_, Mar 27 2018 *)
%K nonn
%O 1,3
%A _N. J. A. Sloane_, Dec 05 2003
%E Edited by _Emeric Deutsch_, Mar 06 2004
|
