reviewed
approved
proposed
editing
m = 25; Range[0, m]! * CoefficientList[Series[Exp[-(x + x^2/2 + x^3/3 + x^4/4 + x^5/5)], {x, 0, m}], x] (* Amiram Eldar, May 03 2021 *)
Seiichi Manyama, <a href="/A334571/b334571.txt">Table of n, a(n) for n = 0..500</a>