|
%I #16 May 09 2021 11:55:53
%S 1,4,62,1614,58904,2764880,158631120,10755909010,841471425920,
%T 74605812325020,7392555309228800,809594650092540950,
%U 97103822900059929600,12659189667284189060200,1782335176686080469555200,269524635118213823349788250,43567606796796836119605248000
%N a(n) = (-1)^n * n! * Laguerre(n, 5*n).
%H Vaclav Kotesovec, <a href="/A332694/b332694.txt">Table of n, a(n) for n = 0..320</a>
%F a(n) ~ exp((3-sqrt(5))*n/2) * ((sqrt(5) + 1)/2)^(2*n+1) * n^n / 5^(1/4). - _Vaclav Kotesovec_, Feb 20 2020, simplified May 09 2021
%t Table[(-1)^n * n! * LaguerreL[n, 5*n], {n, 0, 20}]
%t Flatten[{1, Table[n!*Sum[Binomial[n, k] * (-1)^(n-k) * 5^k * n^k / k!, {k, 0, n}], {n, 1, 20}]}]
%t Table[(-1)^n * n! * Hypergeometric1F1[-n, 1, 5*n], {n, 0, 20}]
%o (PARI) a(n) = (-1)^n*n!*pollaguerre(n, 0, 5*n); \\ _Michel Marcus_, Feb 05 2021
%Y Cf. A277419, A277423, A332692, A332693, A332679, A332695.
%K nonn
%O 0,2
%A _Vaclav Kotesovec_, Feb 20 2020
|
