This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A334570 #19 May 03 2021 02:13:29 %S A334570 1,-1,0,0,0,24,-24,-120,-720,-5040,32256,169344,743040,-380160, %T A334570 -91048320,-408710016,-174230784,29842525440,455765667840, %U A334570 1061427732480,-18914141343744,-379628241094656,-3305984467691520,10588546824468480,458522651844956160,5722461010387021824 %N A334570 E.g.f.: exp(-(x + x^2/2 + x^3/3 + x^4/4)). %H A334570 Seiichi Manyama, <a href="/A334570/b334570.txt">Table of n, a(n) for n = 0..500</a> %F A334570 a(0) = 1 and a(n) = - (n-1)! * Sum_{k=1..min(4,n)} a(n-k)/(n-k)!. %t A334570 m = 25; Range[0, m]! * CoefficientList[Series[Exp[-(x + x^2/2 + x^3/3 + x^4/4)], {x, 0, m}], x] (* _Amiram Eldar_, May 03 2021 *) %o A334570 (PARI) N=40; x='x+O('x^N); Vec(serlaplace(exp(-x-x^2/2-x^3/3-x^4/4))) %Y A334570 Column 4 of A334568. %Y A334570 Cf. A070945, A334564. %K A334570 sign %O A334570 0,6 %A A334570 _Seiichi Manyama_, May 06 2020