A332692 a(n) = n! * Laguerre(n, 2*n).

1, -1, 2, 6, -232, 4120, -61488, 740432, -3220096, -224705664, 11713068800, -397487915264, 10466018491392, -176186211195904, -2178925657151488, 399827849856768000, -24748326426744881152, 1112888620945558700032, -36293785214959525625856, 408738923015995616067584

Offset: 0

Author

Vaclav Kotesovec, Feb 20 2020

Keywords

• sign

Links

• Vaclav Kotesovec, Table of n, a(n) for n = 0..350

Crossrefs

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

Cf. A277391, A295406.

Programs

Mathematica

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

PARI

a(n) = n!*pollaguerre(n, 0, 2*n); \\ Michel Marcus, Feb 05 2021