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 A336606 #5 Jul 27 2020 15:46:59 %S A336606 1,2,9,70,851,15246,384147,13065354,578905875,32440563766, %T A336606 2243907466283,187796863841346,18704441632101337,2186374265471576090, %U A336606 296396762529435076953,46126320892158605384334,8167358455139620845210003,1632571811017090501346518086 %N A336606 Sum_{n>=0} a(n) * x^n / (n!)^2 = exp(x) / BesselJ(0,2*sqrt(x)). %F A336606 a(n) = n! * Sum_{k=0..n} binomial(n,k) * A000275(k) / k!. %t A336606 nmax = 17; CoefficientList[Series[Exp[x]/BesselJ[0, 2 Sqrt[x]], {x, 0, nmax}], x] Range[0, nmax]!^2 %t A336606 A000275[0] = 1; A000275[n_] := A000275[n] = -Sum[(-1)^(n - k) Binomial[n, k]^2 A000275[k], {k, 0, n - 1}]; a[n_] := n! Sum[Binomial[n, k] A000275[k]/k!, {k, 0, n}]; Table[a[n], {n, 0, 17}] %Y A336606 Cf. A000275, A002720, A009940, A336608. %K A336606 nonn %O A336606 0,2 %A A336606 _Ilya Gutkovskiy_, Jul 27 2020