|
| |
|
|
A127553
|
|
a(n) = Product_{k=1 to n} LCM(k,n)/GCD(k,n).
|
|
9
| |
|
|
1, 2, 18, 96, 15000, 6480, 84707280, 41287680, 21427701120, 56700000000, 94121726392108800, 2483144294400, 11159820050604594969600, 24625709514114508800, 620634514500000000000, 359450793240158011392000
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
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 * A173785 A055357 A087291
Adjacent sequences: A127550 A127551 A127552 * 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
|
| |
|
|
