A089117 Convoluted convolved Fibonacci numbers G_j^(4).

0, 1, 3, 10, 25, 64, 146, 331, 710, 1505, 3091, 6272, 12473, 24540, 47610, 91527, 174138, 328768, 615720, 1145650, 2117884, 3893630, 7119978, 12958400, 23478010, 42364427, 76148353, 136389128, 243467595, 433263360, 768749914, 1360269093

Offset

1,3

Links

Table of n, a(n) for n=1..32.

P. Moree, Convoluted convolved Fibonacci numbers

Index entries for linear recurrences with constant coefficients, signature (4,0,-16,10,20,-12,-4,-7,-12,12,12,2,0,-4,-4,-1).

Formula

G.f.: (z/4)[1/(1-z-z^2)^4-1/(1-z^2-z^4)^2].

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

Mathematica

LinearRecurrence[{4, 0, -16, 10, 20, -12, -4, -7, -12, 12, 12, 2, 0, -4, -4, -1}, {0, 1, 3, 10, 25, 64, 146, 331, 710, 1505, 3091, 6272, 12473, 24540, 47610, 91527}, 40]
(* Ray Chandler, Jul 15 2015 *)

Prog

(PARI) a(n)=([0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0; 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0; 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0; 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1; -1, -4, -4, 0, 2, 12, 12, -12, -7, -4, -12, 20, 10, -16, 0, 4]^(n-1)*[0; 1; 3; 10; 25; 64; 146; 331; 710; 1505; 3091; 6272; 12473; 24540; 47610; 91527])[1, 1] \\ Charles R Greathouse IV, May 29 2026

Crossrefs

Sequence in context: A387957 A005674 A089100 * A176610 A026965 A130783

Adjacent sequences: A089114 A089115 A089116 * A089118 A089119 A089120

Keyword

nonn,easy,changed

Author

N. J. A. Sloane, Dec 05 2003

Extensions

Edited by Emeric Deutsch, Mar 06 2004

Status

approved