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 A160621 #14 Sep 08 2022 08:45:45 %S A160621 1,0,-1,-2,-5,-7,-37,-17,887,1405,168919,958271,3086837,122693929, %T A160621 559876951,15779421743,337767590383,1531923385313,11912361112367, %U A160621 -6819537030283,-21032925955607701,-313699426574980519,-16703816669710968821,-212752402370938916881 %N A160621 Numerator of Laguerre(n, 1). %H A160621 G. C. Greubel, <a href="/A160621/b160621.txt">Table of n, a(n) for n = 0..450</a> %F A160621 Numerators of coefficients in expansion of exp(-x/(1 - x))/(1 - x). - _Ilya Gutkovskiy_, Aug 29 2018 %e A160621 1, 0, -1/2, -2/3, -5/8, -7/15, -37/144, -17/420, 887/5760, 1405/4536, 168919/403200, 958271/1995840, ... = A160621/A160622. %t A160621 Numerator/@LaguerreL[Range[0,30],1] (* _Harvey P. Dale_, May 01 2011 *) %o A160621 (PARI) for(n=0,30, print1(numerator(sum(k=0,n, binomial(n,k)*((-1)^k/k!))), ", ")) \\ _G. C. Greubel_, May 06 2018 %o A160621 (Magma) [Numerator((&+[Binomial(n,k)*((-1)^k/Factorial(k)): k in [0..n]])): n in [0..30]]; // _G. C. Greubel_, May 06 2018 %Y A160621 For denominators see A160622. %Y A160621 Cf. A009940. %K A160621 sign,frac %O A160621 0,4 %A A160621 _N. J. A. Sloane_, Nov 14 2009