|
|
A089094
|
|
Convoluted convolved Fibonacci numbers G_j^(7).
|
|
0
|
|
|
0, 1, 5, 20, 70, 222, 654, 1817, 4815, 12265, 30217, 72344, 168950, 386050, 865264, 1906260, 4135320, 8846700, 18687800, 39023300, 80630770, 164990461, 334599050, 672958200, 1343096325, 2661417579, 5238577803, 10246976040, 19926439195
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
G.f.: (z/7)[1/(1-z-z^2)^7-1/(1-z^7-z^14)].
|
|
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(7, j), j=1..40);
|
|
MATHEMATICA
|
(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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|