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 A182922 #12 Jun 18 2019 03:15:03
%S A182922 1,1,1,1,8,8,144,144,1152,10368,518400,518400,6220800,6220800,
%T A182922 609638400,9144576000,146313216000,146313216000,2633637888000,
%U A182922 2633637888000,52672757760000,1106127912960000,267682954936320000
%N A182922 a(n) = n! / A055773(n).
%C A182922 a(n) = n! * P(floor(n/2))/P(n), where P(n) is a primorial number (A034386).
%p A182922 A182922 := n -> n! / mul(k, k=select(isprime, [$iquo(n,2)+1..n])):
%p A182922 # Or without division:
%p A182922 a182922 := proc(n) local k,i,R;
%p A182922 R := {seq(i,i=1..n)} minus {op(select(isprime,[seq(i,i=iquo(n,2)+1..n)]))};
%p A182922 mul(k,k=R) end:
%t A182922 a[n_] := n!/Numerator[n!/Floor[n/2]!^4];
%t A182922 Table[a[n], {n, 0, 22}] (* _Jean-François Alcover_, Jun 18 2019 *)
%K A182922 nonn
%O A182922 0,5
%A A182922 _Peter Luschny_, Mar 05 2011