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 A336293 #12 Aug 04 2022 05:10:56
%S A336293 1,3,16,116,1038,10922,131256,1766592,26253702,426173906,7492270416,
%T A336293 141661870088,2864168171596,61621248390756,1404853103594128,
%U A336293 33815954626749600,856680253728250950,22777071459869216850,633968368216974945600,18430976777427663053400
%N A336293 a(n) = Sum_{k=0..n} binomial(n,k)^2 * binomial(2*k,k) * (n-k)!.
%F A336293 Sum_{n>=0} a(n) * x^n / (n!)^2 = exp(x) * BesselI(0,2*sqrt(x))^2.
%F A336293 a(n) ~ n^n * exp(4*sqrt(n) - n - 2) / sqrt(8*Pi) * (1 + 55/(24*sqrt(n))). - _Vaclav Kotesovec_, Aug 04 2022
%F A336293 Recurrence: n*a(n) = (3*n^2 + n - 1)*a(n-1) - (n-1)^2*(3*n + 1)*a(n-2) + (n-2)^2*(n-1)^2*a(n-3). - _Vaclav Kotesovec_, Aug 04 2022
%t A336293 Table[Sum[Binomial[n, k]^2 Binomial[2 k, k] (n - k)!, {k, 0, n}], {n, 0, 19}]
%t A336293 Table[n! HypergeometricPFQ[{1/2, -n}, {1, 1}, -4], {n, 0, 19}]
%t A336293 nmax = 19; CoefficientList[Series[Exp[x] BesselI[0, 2 Sqrt[x]]^2, {x, 0, nmax}], x] Range[0, nmax]!^2
%o A336293 (PARI) a(n) = sum(k=0, n, binomial(n,k)^2 * binomial(2*k,k) * (n-k)!); \\ _Michel Marcus_, Jul 17 2020
%Y A336293 Cf. A000984, A002720, A002893.
%K A336293 nonn
%O A336293 0,2
%A A336293 _Ilya Gutkovskiy_, Jul 16 2020