cp's OEIS Frontend

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.

A098710 a(n) = Product_{k|n} k!.

This page as a plain text file.
%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