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 A160611 #14 Sep 08 2022 08:45:45
%S A160611 1,5,17,143,355,4043,5177,367271,713723,2410003,109669391,85569361,
%T A160611 11122330591,245535162239,52108328723,70514170732823,1753034045867,
%U A160611 3087820148584967,3365163124738543,15216530369586809,9955926989110451149,63735241273696485041
%N A160611 Numerator of Laguerre(n, -4).
%H A160611 Alois P. Heinz, <a href="/A160611/b160611.txt">Table of n, a(n) for n = 0..491</a>
%F A160611 a:= n-> numer(add(binomial(n, i)*4^i/i!, i=0..n)):
%F A160611 seq(a(n), n=0..25); # _Alois P. Heinz_, Jun 27 2017
%t A160611 Numerator[Table[LaguerreL[n, -4], {n, 0, 50}]] (* _G. C. Greubel_, May 12 2018 *)
%o A160611 (PARI) for(n=0,30, print1(numerator(sum(k=0,n, binomial(n,k)*(4^k/k!))), ", ")) \\ _G. C. Greubel_, May 12 2018
%o A160611 (PARI) a(n) = numerator(pollaguerre(n, 0, -4)); \\ _Michel Marcus_, Feb 05 2021
%o A160611 (Magma) [Numerator((&+[Binomial(n,k)*(4^k/Factorial(k)): k in [0..n]])): n in [0..30]]; // _G. C. Greubel_, May 12 2018
%Y A160611 For denominators see A160612.
%Y A160611 Cf. A289147.
%K A160611 nonn,frac
%O A160611 0,2
%A A160611 _N. J. A. Sloane_, Nov 14 2009