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.

A127553 a(n) = Product_{k=1..n} lcm(k,n)/gcd(k,n).

This page as a plain text file.
%I A127553 #16 Jun 10 2017 09:49:46
%S A127553 1,2,18,96,15000,6480,84707280,41287680,21427701120,56700000000,
%T A127553 94121726392108800,2483144294400,11159820050604594969600,
%U A127553 24625709514114508800,620634514500000000000,359450793240158011392000
%N A127553 a(n) = Product_{k=1..n} lcm(k,n)/gcd(k,n).
%H A127553 Harvey P. Dale, <a href="/A127553/b127553.txt">Table of n, a(n) for n = 1..238</a>
%F A127553 a(n) = A071248(n)/A067911(n). - _R. J. Mathar_, Apr 03 2007
%e A127553 a(6) = lcm(1,6)/gcd(1,6) * lcm(2,6)/gcd(2,6) * lcm(3,6)/gcd(3,6) * lcm(4,6)/gcd(4,6) * lcm(5,6)/gcd(5,6) * lcm(6,6)/gcd(6,6) = 6/1 * 6/2 * 6/3 * 12/2 * 30/1 * 6/6 = 6480.
%p A127553 A067911 := proc(n) mul( gcd(k,n),k=1..n) ; end: A071248 := proc(n) mul( lcm(k,n),k=1..n) ; end: A127553 := proc(n) A071248(n)/A067911(n) ; end: for n from 1 to 30 do printf("%d, ",A127553(n)) ; od ; # _R. J. Mathar_, Apr 03 2007
%p A127553 a:=n->product(ilcm(k,n)/igcd(k,n),k=1..n): seq(a(n),n=1..18); # _Emeric Deutsch_, Apr 13 2007
%t A127553 Table[Product[LCM[k,n]/GCD[k,n],{k,n}],{n,20}] (* _Harvey P. Dale_, Jun 10 2017 *)
%Y A127553 Cf. A056789.
%K A127553 nonn
%O A127553 1,2
%A A127553 _Leroy Quet_, Apr 02 2007
%E A127553 More terms from _R. J. Mathar_, Apr 03 2007