|
| |
|
|
A064451
|
|
LCM of totients of binomial coefficients C[n,j], j=0..n.
|
|
1
| |
|
|
1, 1, 2, 2, 4, 8, 24, 24, 72, 288, 240, 240, 1440, 2880, 2880, 11520, 23040, 46080, 207360, 276480, 82944, 829440, 2280960, 9123840, 15206400, 60825600, 273715200, 1642291200, 766402560, 7664025600, 1916006400, 1277337600
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=1,...,200
|
|
|
MATHEMATICA
| Apply[LCM, Table[EulerPhi[Binomial[n, w]], {w, 0, n}]]
|
|
|
PROG
| (PARI) { for (n=1, 200, a=1; for (j=0, n, a=lcm(a, eulerphi(binomial(n, j)))); write("b064451.txt", n, " ", a) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Sep 14 2009]
|
|
|
CROSSREFS
| Sequence in context: A100396 A056630 A121853 * A032440 A145869 A032439
Adjacent sequences: A064448 A064449 A064450 * A064452 A064453 A064454
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Oct 02 2001
|
| |
|
|
