OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..2000
P. Moree, Convoluted convolved Fibonacci numbers, arXiv:math/0311205 [math.CO], 2003.
FORMULA
Empirical g.f.: -x*(2*x^8-8*x^7+12*x^6-7*x^5-2*x^3+9*x^2-13*x+8) / ((x-1)^5*(x^4+x^3+x^2+x+1)). - Colin Barker, Jul 31 2013
MAPLE
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, 6), r=1..65);
MATHEMATICA
f[z_] = 1/(1-z-z^2); m[r_, j_] := (1/r)*z*DivisorSum[r, MoebiusMu[#] * f[z^#]^(r/#)&] // SeriesCoefficient[#, {z, 0, j}]&; Table[m[r, 6], {r, 1, 41}] (* Jean-François Alcover, Mar 25 2018, translated from Maple *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 05 2003
EXTENSIONS
Edited by Emeric Deutsch, Mar 06 2004
STATUS
approved