OFFSET
0,3
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..350
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}]
PROG
(PARI) a(n) = n!*pollaguerre(n, 0, 2*n); \\ Michel Marcus, Feb 05 2021
CROSSREFS
KEYWORD
sign
AUTHOR
Vaclav Kotesovec, Feb 20 2020
STATUS
approved