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 A087639 #20 Jul 27 2019 02:36:57
%S A087639 1,1,6,210,8400,740880,88814880,15217282080,3319002086400,
%T A087639 992431440000000,351841557779712000,156995673442223616000,
%U A087639 82429416503416958976000,52017974139195896832000000,37547796668359538444083200000,31987697744989345038846566400000
%N A087639 E.g.f.: Product_{m >= 1} (1+x^(2*m)/(2*m)) (even powers only).
%C A087639 Number of permutations of 2*n elements with distinct cycle lengths and without odd cycles. - _Vladeta Jovovic_, Aug 17 2004
%H A087639 Alois P. Heinz, <a href="/A087639/b087639.txt">Table of n, a(n) for n = 0..225</a>
%F A087639 a(n) ~ 2*exp(-gamma/2) * (2*n)! / (Pi*sqrt(n)), where gamma is the Euler-Mascheroni constant A001620. - _Vaclav Kotesovec_, Jul 23 2019
%p A087639 b:= proc(n, i) option remember; `if`((i/2)*(i/2+1)<n, 0,
%p A087639 `if`(n=0, 1, b(n,i-2)+`if`(i>n, 0, (i-1)!*
%p A087639 b(n-i, i-2)*binomial(n, i))))
%p A087639 end:
%p A087639 a:= n-> b(2*n$2):
%p A087639 seq(a(n), n=0..17); # _Alois P. Heinz_, Nov 01 2017
%t A087639 nmax = 20; Table[(CoefficientList[Series[Product[1 + x^(2*k)/(2*k), {k, 1, 2*nmax}], {x, 0, 2*nmax}], x]*Range[0, 2*nmax]!)[[2*n + 1]], {n, 0, nmax}] (* _Vaclav Kotesovec_, Jul 23 2019 *)
%Y A087639 Cf. A007838, A007841, A088994, A294506, A305199, A309319.
%K A087639 nonn
%O A087639 0,3
%A A087639 Yuval Dekel (dekelyuval(AT)hotmail.com), Nov 06 2003
%E A087639 More terms from _Christian G. Bower_, Jan 06 2006