%I #23 Sep 08 2022 08:46:19
%S 1,6,47,446,4929,61870,866695,13373190,224995745,4094022230,
%T 80031878175,1671426609550,37116087808225,872797202471550,
%U 21656891639499575,565266064058561750,15476777687220818625,443409439715399299750,13263588837009155407375
%N a(n) = n! * Laguerre(n,-5).
%H Alois P. Heinz, <a href="/A289211/b289211.txt">Table of n, a(n) for n = 0..435</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/LaguerrePolynomial.html">Laguerre Polynomial</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Laguerre_polynomials">Laguerre polynomials</a>
%H <a href="/index/La#Laguerre">Index entries for sequences related to Laguerre polynomials</a>
%F E.g.f.: exp(5*x/(1-x))/(1-x).
%F a(n) = n! * Sum_{i=0..n} 5^i/i! * binomial(n,i).
%F a(n) = n! * A160609(n)/A160610(n).
%F a(n) ~ exp(-5/2 + 2*sqrt(5*n) - n) * n^(n + 1/4) / (sqrt(2)*5^(1/4)) * (1 + 223/(48*sqrt(5*n))). - _Vaclav Kotesovec_, Nov 13 2017
%F Sum_{n>=0} a(n) * x^n / (n!)^2 = exp(x) * Sum_{n>=0} 5^n * x^n / (n!)^2. - _Ilya Gutkovskiy_, Jul 17 2020
%p a:= n-> n! * add(binomial(n, i)*5^i/i!, i=0..n):
%p seq(a(n), n=0..20);
%t [Table[n!*LaguerreL[n,-5], {n,0,50}]] (* _G. C. Greubel_, May 09 2018 *)
%o (PARI) for(n=0,30, print1(n!*sum(k=0,n, binomial(n,k)*(5^k/k!)), ", ")) \\ _G. C. Greubel_, May 09 2018
%o (PARI) a(n) = n!*pollaguerre(n, 0, -5); \\ _Michel Marcus_, Feb 05 2021
%o (Magma) [(Factorial(n)*(&+[Binomial(n,k)*(5^k/Factorial(k)): k in [0..n]])): n in [0..30]]; // _G. C. Greubel_, May 09 2018
%Y Column k=5 of A289192.
%Y Cf. A160609, A160610.
%K nonn
%O 0,2
%A _Alois P. Heinz_, Jun 28 2017