A332693 a(n) = n! * Laguerre(n, 3*n).

1, -2, 14, -156, 2328, -42630, 902736, -20961864, 497925504, -10347816906, 54902188800, 15803663268492, -1741565563831296, 146556727320337074, -11551833579195721728, 901051402625901468000, -71007771313742983888896, 5701873713553516375488366, -467924697090124685492944896

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, A332692, A332679, A332694, A332695.

Cf. A277392, A295407.

Programs

Mathematica

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

PARI

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