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 A100520 #9 Jul 07 2022 02:19:42 %S A100520 1,7,137,2341,38629,1257937,50881679,164078209,18480100619, %T A100520 1187779852639,4086043585673,46823724627623,825926870076593, %U A100520 8826243587390221,6435629123661395137,721766119107018403553,5255377541226932317019,19239461977895120106181,2618947765106118753941303 %N A100520 Numerator of Sum_{k=0..2*n} (-1)^k/binomial(2*n, k)^2. %H A100520 G. C. Greubel, <a href="/A100520/b100520.txt">Table of n, a(n) for n = 0..675</a> %F A100520 a(n) = numerator( Sum_{k=0..2*n} (-1)^k/binomial(2*n,k)^2 ). %e A100520 1, 7/4, 137/72, 2341/1200, 38629/19600, 1257937/635040, 50881679/25613280, 164078209/82450368, 18480100619/9275666400, 1187779852639/595703908800, ... = A100520/A100521 %t A100520 Table[Numerator[Sum[(-1)^k/Binomial[2*n,k]^2, {k,0,2*n}]], {n,0,30}] (* _G. C. Greubel_, Jun 24 2022 *) %o A100520 (Magma) [Numerator( (&+[(-1)^k/Binomial(2*n,k)^2: k in [0..2*n]]) ): n in [0..30]]; // _G. C. Greubel_, Jun 24 2022 %o A100520 (SageMath) [numerator(sum((-1)^k/binomial(2*n,k)^2 for k in (0..2*n))) for n in (0..30)] # _G. C. Greubel_, Jun 24 2022 %o A100520 (PARI) a(n) = numerator(sum(k=0, 2*n, (-1)^k/binomial(2*n, k)^2)); \\ _Michel Marcus_, Jun 25 2022 %Y A100520 Cf. A100516, A100521. %K A100520 nonn,frac %O A100520 0,2 %A A100520 _N. J. A. Sloane_, Nov 25 2004 %E A100520 Definition corrected by _Alexander Adamchuk_, May 11 2007