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!)
A089098 Sign twisted convoluted convolved Fibonacci numbers H_j^(2). 3
1, 1, 3, 5, 11, 19, 37, 65, 120, 210, 376, 654, 1149, 1985, 3443, 5911, 10159, 17345, 29605, 50305, 85400, 144516, 244272, 411900, 693729, 1166209, 1958219, 3283145, 5498595, 9197455, 15369373, 25655489, 42787456, 71293590, 118695272, 197452746, 328227725 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

COMMENTS

Let "a" = the Fibonacci numbers, and "b" = the aerated Fibonacci numbers (1, 0, 1, 0, 2,...). Then A089098 = (1/2) * (a^2 + b), where a^2 = A001629, the Fibonacci numbers convolved with themselves: (1, 2, 5, 10, 20, 38,...).

LINKS

Colin Barker, Table of n, a(n) for n = 1..1000

A. R. Ashrafi, J. Azarija, K. Fathalikhani, S. Klavzar and M. Petkovsek, Vertex and edge orbits of Fibonacci and Lucas cubes, 2014; See Table 2.

P. Moree, Convoluted convolved Fibonacci numbers, arXiv:math/0311205 [math.CO], 2003.

Index entries for linear recurrences with constant coefficients, signature (2,2,-4,-1,0,0,2,1).

FORMULA

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

G.f.: -x*(x-1)^2*(x+1) / ((x^2+x-1)^2*(x^4+x^2-1)). - Colin Barker, Jul 23 2015

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

MATHEMATICA

(1-x-x^2+x^3)/((1-x-x^2)^2*(1-x^2-x^4)) + O[x]^40 // CoefficientList[#, x]& (* Jean-Fran├žois Alcover, Jan 20 2018 *)

PROG

(PARI) Vec(-x*(x-1)^2*(x+1)/((x^2+x-1)^2*(x^4+x^2-1)) + O(x^50)) \\ Colin Barker, Jul 23 2015

CROSSREFS

2nd column of A337009.

Sequence in context: A320794 A320795 A285230 * A129384 A131887 A045691

Adjacent sequences:  A089095 A089096 A089097 * A089099 A089100 A089101

KEYWORD

nonn,easy

AUTHOR

N. J. A. Sloane, Dec 05 2003

EXTENSIONS

Edited by Emeric Deutsch, Mar 06 2004

STATUS

approved

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 24 11:06 EDT 2020. Contains 337317 sequences. (Running on oeis4.)