|
Search: id:A127553
|
|
|
| A127553 |
|
a(n) = Product_{k=1 to n} LCM(k,n)/GCD(k,n). |
|
+0
9
|
|
| 1, 2, 18, 96, 15000, 6480, 84707280, 41287680, 21427701120, 56700000000, 94121726392108800, 2483144294400, 11159820050604594969600, 24625709514114508800, 620634514500000000000, 359450793240158011392000
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
FORMULA
|
a(n) = A071248(n)/A067911(n). - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Apr 03 2007
|
|
EXAMPLE
|
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.
|
|
MAPLE
|
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 (mathar(AT)strw.leidenuniv.nl), Apr 03 2007
a:=n->product(ilcm(k, n)/igcd(k, n), k=1..n): seq(a(n), n=1..18); - Emeric Deutsch (deutsch(AT)duke.poly.edu), Apr 13 2007
|
|
CROSSREFS
|
Cf. A056789.
Sequence in context: A157052 A052633 A052638 this_sequence A055357 A087291 A005969
Adjacent sequences: A127550 A127551 A127552 this_sequence A127554 A127555 A127556
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet Apr 02 2007
|
|
EXTENSIONS
|
More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Apr 03 2007
|
|
|
Search completed in 0.002 seconds
|
