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 A098710 #13 Sep 07 2019 04:34:47 %S A098710 1,2,6,48,120,8640,5040,1935360,2177280,870912000,39916800, %T A098710 99325771776000,6227020800,878757175296000,941525544960000, %U A098710 40493130637639680000,355687428096000,20073254719690742169600000,121645100408832000,50852245289883213496320000000,1544990091272493465600000 %N A098710 a(n) = Product_{k|n} k!. %e A098710 a(6) = 1! 2! 3! 6! = 8640 because 1, 2, 3 and 6 are the positive divisors of 6. %t A098710 Table[z = 1; For[i = 1, i ? n, i++, If[Mod[n, i] == 0, z = z*i! ]]; z, {n, 1, 20}] (Handler) %t A098710 Table[Product[k!, {k, Divisors[n]}], {n, 1, 20}] (* _Vaclav Kotesovec_, Sep 07 2019 *) %o A098710 (PARI) a(n) = my(p=1); fordiv(n, d, p *= d!); p; \\ _Michel Marcus_, Sep 07 2019 %Y A098710 Cf. A000178. %K A098710 nonn %O A098710 1,2 %A A098710 _Leroy Quet_, Sep 28 2004 %E A098710 More terms from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Nov 15 2004 %E A098710 More terms from _Michel Marcus_, Sep 07 2019