login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A111139 a(n) = n!*Sum_{k=0..n} Fibonacci(k)/k!. 2
0, 1, 3, 11, 47, 240, 1448, 10149, 81213, 730951, 7309565, 80405304, 964863792, 12543229529, 175605213783, 2634078207355, 42145251318667, 716469272418936, 12896446903543432, 245032491167329389, 4900649823346594545 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

COMMENTS

Eigensequence of a triangle with the Fibonacci series as the left border, the natural numbers (1, 2, 3,...) as the right border; and the rest zeros. - Gary W. Adamson, Aug 01 2016

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 0..200

Eric Weisstein's MathWorld, Incomplete Gamma Function.

Eric Weisstein's MathWorld, Fibonacci Number.

Eric Weisstein's MathWorld, Golden Ratio.

FORMULA

E.g.f.: (2/sqrt(5))*exp(x/2)*sinh(sqrt(5)*x/2)/(1-x).

Recurrence: a(n) = (n+1)*a(n-1) - (n-2)*a(n-2) - (n-2)*a(n-3). - Vaclav Kotesovec, Oct 18 2012

a(n) ~ 2*sqrt(e/5)*sinh(sqrt(5)/2)*n!. - Vaclav Kotesovec, Oct 18 2012

From Vladimir Reshetnikov, Oct 27 2015: (Start)

Let phi=(1+sqrt(5))/2.

a(n) = (phi^n*hypergeom([1,-n], [], 1-phi)-(1-phi)^n*hypergeom([1,-n], [], phi))/sqrt(5).

a(n) = (exp(phi)*Gamma(n+1, phi)-exp^(1-phi)*Gamma(n+1, 1-phi))/sqrt(5), where Gamma(a, x) is the upper incomplete Gamma function.

Gamma(n+1, phi)*exp(phi) = a(n)*phi + A263823(n).

a(n) ~ exp(phi-n)*n^(n+1/2)*sqrt(2*Pi/5)*(1-exp(-sqrt(5)).

(End)

MAPLE

a:=n->sum(fibonacci (j)*n!/j!, j=0..n):seq(a(n), n=0..20); # Zerinvary Lajos, Mar 19 2007

MATHEMATICA

f[n_] := n!*Sum[Fibonacci[k]/k!, {k, 0, n}]; Table[ f[n], {n, 0, 20}] (* or *)

Simplify[ Range[0, 20]!CoefficientList[ Series[2/Sqrt[5]*Exp[x/2]*Sinh[Sqrt[5]*x/2]/(1 - x), {x, 0, 20}], x]] (* Robert G. Wilson v, Oct 21 2005 *)

Module[{nn=20, fibs, fct}, fct=Range[0, nn]!; fibs=Accumulate[ Fibonacci[ Range[ 0, nn]]/fct]; Times@@@Thread[{fct, fibs}]] (* Harvey P. Dale, Feb 19 2014 *)

Round@Table[(E^GoldenRatio Gamma[n+1, GoldenRatio] - E^(1-GoldenRatio) Gamma[n+1, 1-GoldenRatio])/Sqrt[5], {n, 0, 20}] (* Vladimir Reshetnikov, Oct 27 2015 *)

PROG

(PARI) vector(100, n, n--; n!*sum(k=0, n, fibonacci(k)/k!)) \\ Altug Alkan, Oct 28 2015

CROSSREFS

Cf. A000045, A263823.

Cf. A009102, A009551, A000142, A000166, A000522, A000023, A053486, A010844 (incomplete Gamma function values at other points).

Sequence in context: A030902 A030925 A020543 * A167564 A295833 A191344

Adjacent sequences:  A111136 A111137 A111138 * A111140 A111141 A111142

KEYWORD

easy,nonn

AUTHOR

Vladeta Jovovic, Oct 17 2005

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 August 24 14:21 EDT 2019. Contains 326283 sequences. (Running on oeis4.)