A332692 - OEIS

%I #12 Feb 05 2021 08:48:25

%S 1,-1,2,6,-232,4120,-61488,740432,-3220096,-224705664,11713068800,

%T -397487915264,10466018491392,-176186211195904,-2178925657151488,

%U 399827849856768000,-24748326426744881152,1112888620945558700032,-36293785214959525625856,408738923015995616067584

%N a(n) = n! * Laguerre(n, 2*n).

%H Vaclav Kotesovec, <a href="/A332692/b332692.txt">Table of n, a(n) for n = 0..350</a>

%t Table[n! * LaguerreL[n, 2*n], {n, 0, 25}]

%t Flatten[{1, Table[n!*Sum[Binomial[n, k] * (-1)^k * 2^k * n^k / k!, {k, 0, n}], {n, 1, 25}]}]

%t Table[n! * Hypergeometric1F1[-n, 1, 2*n], {n, 0, 25}]

%o (PARI) a(n) = n!*pollaguerre(n, 0, 2*n); \\ _Michel Marcus_, Feb 05 2021

%Y Cf. A277423, A332693, A332679, A332694, A332695.

%Y Cf. A277391, A295406.

%K sign

%O 0,3

%A _Vaclav Kotesovec_, Feb 20 2020