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 A163087 #5 Jul 26 2013 04:46:56
%S A163087 1,1,2,6,12,30,240,140,840,3780,15120,2772,221760,12012,960960,
%T A163087 9266400,10810800,218790,7351344000,923780,16761064320,3259095840,
%U A163087 3910915008,16224936,41977154419200,2028117000,249864014400
%N A163087 Product{k|n} k$. Here '$' denotes the swinging factorial function (A056040).
%H A163087 Peter Luschny, <a href="http://www.luschny.de/math/primes/SwingingPrimes.html"> Swinging Primes.</a>
%e A163087 The set of positive divisors of 3 is {1,3}. Thus a(3) = 1$ * 3$ = 1 * 6 = 6.
%p A163087 a := proc(n) local i; mul(i,i=map(swing,numtheory[divisors](n))) end:
%t A163087 sf[n_] := With[{f = Floor[n/2]}, Pochhammer[f+1, n-f]/f!]; a[0] = 1; a[n_] := Product[sf[k], {k, Divisors[n]}]; Table[a[n], {n, 0, 26}] (* _Jean-François Alcover_, Jul 26 2013 *)
%Y A163087 Cf. A098710, A163088, A163089.
%K A163087 nonn
%O A163087 0,3
%A A163087 _Peter Luschny_, Jul 21 2009