D-finite with recurrence: a(n) = (2*n-1)*a(n-1) - (n-1)*(n-2)*a(n-2).
E.g.f.: exp( x/(1-x) ).
a(n) = (n-1)!*LaguerreL(n-1,1,-1) for n >= 1. -
Vladeta Jovovic, May 10 2003
Representation as n-th moment of a positive function on positive half-axis: a(n) = Integral_{x=0..oo} x^n*exp(-x-1)*BesselI(1, 2*x^(1/2))/x^(1/2) dx, n >= 1. -
Karol A. Penson, Dec 04 2003
a(n) = n! Sum_{j=0..n-1} binomial(n-1, j)/(j+1)!, for n > 0. - Herbert S. Wilf, Jun 14 2005
Asymptotic expansion for large n: a(n) -> (0.4289*n^(-1/4) + 0.3574*n^(-3/4) - 0.2531*n^(-5/4) + O(n^(-7/4)))*(n^n)*exp(-n + 2*sqrt(n)). -
Karol A. Penson, Aug 28 2002
Minor part of this asymptotic expansion is wrong! Right is (in closed form): a(n) ~ n^(n-1/4)*exp(-1/2+2*sqrt(n)-n)/sqrt(2) * (1 - 5/(48*sqrt(n)) - 95/(4608*n)), numerically a(n) ~ (0.42888194248*n^(-1/4) - 0.0446752023417*n^(-3/4) - 0.00884196713*n^(-5/4) + O(n^(-7/4))) *(n^n)*exp(-n+2*sqrt(n)). -
Vaclav Kotesovec, Jun 02 2013
a(n) = exp(-1)*Sum_{m>=0} [m]^n/m!, where [m]^n = m*(m+1)*...*(m+n-1) is the rising factorial. -
Vladeta Jovovic, Sep 20 2006
Recurrence: D(n,k) = D(n-1,k-1) + (n-1+k) * D(n-1,k) n >= k >= 0; D(n,0)=0. From this, D(n,1) = n! and D(n,n)=1; a(n) = Sum_{i=0..n} D(n,i). - Stephen Dalton (StephenMDalton(AT)gmail.com), Jan 05 2007
Proof: Notice two distinct subsets of the lists for [n]: 1) n is in its own list, then there are D(n-1,k-1); 2) n is in a list with other numbers. Denoting the separation of lists by |, it is not hard to see n has (n-1+k) possible positions, so (n-1+k) * D(n-1,k). - Stephen Dalton (StephenMDalton(AT)gmail.com), Jan 05 2007
Define f_1(x), f_2(x), ... such that f_1(x) = exp(x), f_{n+1}(x) = (d/dx)(x^2*f_n(x)), for n >= 2. Then a(n-1) = exp(-1)*f_n(1). -
Milan Janjic, May 30 2008
a(n) = (n-1)! * Sum_{k=1..n} (a(n-k)*k!)/((n-k)!*(k-1)!), where a(0)=1. -
Thomas Wieder, Sep 10 2008
a(n) = exp(-1)*n!*M(n+1,2,1), n >= 1, where M (=1F1) is the confluent hypergeometric function of the first kind. - Shai Covo (green355(AT)netvision.net.il), Jan 20 2010
From
Sergei N. Gladkovskii, Nov 17 2011, Aug 02 2012, Dec 11 2012, Jan 27 2013, Jul 31 2013, Dec 25 2013: (Start)
Continued fractions:
E.g.f.: Q(0) where Q(k) = 1+x/((1-x)*(2k+1)-x*(1-x)*(2k+1)/(x+(1-x)*(2k+2)/Q(k+1))).
E.g.f.: 1 + x/(G(0)-x) where G(k) = (1-x)*k + 1 - x*(1-x)*(k+1)/G(k+1).
E.g.f.: exp(x/(1-x)) = 4/(2-(x/(1-x))*G(0))-1 where G(k) = 1 - x^2/(x^2 + 4*(1-x)^2*(2*k+1)*(2*k+3)/G(k+1) ).
E.g.f.: 1 + x*(E(0)-1)/(x+1) where E(k) = 1 + 1/(k+1)/(1-x)/(1-x/(x+1/E(k+1) )).
E.g.f.: E(0)/2, where E(k) = 1 + 1/(1 - x/(x + (k+1)*(1-x)/E(k+1) )).
E.g.f.: E(0)-1, where E(k) = 2 + x/( (2*k+1)*(1-x) - x/E(k+1) ).
(End)
E.g.f.: Product {n >= 1} ( (1 + x^n)/(1 - x^n) )^( phi(2*n)/(2*n) ), where phi(n) =
A000010(n) is the Euler totient function. Cf.
A088009. -
Peter Bala, Jan 01 2014
a(n) = n!*hypergeom([1-n],[2],-1) for n >= 1. -
Peter Luschny, Jun 05 2014
a(n) = (-1)^(n-1)*KummerU(1-n,2,-1). -
Peter Luschny, Sep 17 2014
a(n) = hypergeom([-n+1, -n], [], 1) for n >= 0. -
Peter Luschny, Apr 08 2015
0 = a(n)*(18*a(n+2) - 93*a(n+3) + 77*a(n+4) - 17*a(n+5) + a(n+6)) + a(n+1)*(9*a(n+2) - 80*a(n+3) + 51*a(n+4) - 6*a(n+5)) + a(n+2)*(3*a(n+2) - 34*a(n+3) + 15*a(n+4)) + a(n+3)*(-10*a(n+3)) if n >= 0. -
Michael Somos, Feb 27 2017
G.f. G(x)=y satisfies a differential equation: (1-x)*y-2*(1-x)*x^2*y'+x^4*y''=1. -
Bradley Klee, Aug 13 2018
a(n) = n! * LaguerreL(n, -1, -1) = c_{n}(n-1; -1) where c_{n}(x; a) are the Poisson - Charlier polynomials. -
G. C. Greubel, Feb 23 2021
3 divides a(3*n-1); 9 divides a(9*n-1); 11 divides a(11*n-1). -
Peter Bala, Mar 26 2022
For n > 0, a(n) = Sum_{k=0..n-1}*k!*C(n-1,k)*C(n,k). -
Francesca Aicardi, Nov 03 2022
a(n+1) = numerator of (1 + n/(1 + n/(1 + (n-1)/(1 + (n-1)/(1 + ... + 1/(1 + 1/(1))))))). See
A002720 for the denominators. -
Peter Bala, Feb 11 2025
Comments