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 A005450 #25 Nov 22 2022 21:41:42 %S A005450 2,1,1,7,5,121,103,5041,40321,362881,329891,39916801,36846277, %T A005450 6227020801,87178291201,1307674368001,1230752346353,355687428096001, %U A005450 336967037143579,121645100408832001,2432902008176640001 %N A005450 Numerator of (1 + Gamma(n))/n. %H A005450 G. C. Greubel, <a href="/A005450/b005450.txt">Table of n, a(n) for n = 1..300</a> %H A005450 Achilleas Sinefakopoulos, <a href="https://web.archive.org/web/20010608193230/http://users.forthnet.gr/ath/asin/proandsol.htm">Problem 10578</a> (Submitted solution.) %H A005450 H. S. Wilf, <a href="http://www.jstor.org/stable/2974795">Problem 10578</a>, Amer. Math. Monthly, 104 (1997), 270. %F A005450 Define b(n) = ( (n-1)*(n^2-3*n+1)*b(n-1) - (n-2)^3*b(n-2) )/(n*(n-3)); b(2) = b(3) = 1; a(n) = numerator(b(n)), since b(n)=(1+Gamma(n))/n. - Joseph Biberstine (jrbibers(AT)indiana.edu), Sep 12 2006 %t A005450 Table[Numerator[(1 + Gamma[n])/n], {n, 50}] (* Joseph Biberstine (jrbibers(AT)indiana.edu), Sep 12 2006 *) %o A005450 (Magma) [Numerator((1 + Factorial(n-1))/n): n in [1..30]]; // _G. C. Greubel_, Nov 21 2022 %o A005450 (SageMath) [numerator((1+gamma(n))/n) for n in range(1,31)] # _G. C. Greubel_, Nov 21 2022 %Y A005450 Cf. A005451 (denominators). %K A005450 nonn,frac %O A005450 1,1 %A A005450 _N. J. A. Sloane_ %E A005450 Better description from Joseph Biberstine (jrbibers(AT)indiana.edu), Sep 12 2006