|
| |
| |
|
|
|
1, 2, 9, 16, 625, 36, 117649, 4096, 531441, 10000, 25937424601, 20736, 23298085122481, 7529536, 2562890625, 4294967296, 48661191875666868481, 34012224, 104127350297911241532841, 25600000000, 7355827511386641
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=1..100
B. A. Harrison, On the reducibility of cyclotomic polynomials over finite fields, Am. Math. Monthly 114 (9) (2007) 813-818
|
|
|
FORMULA
| a(n) = A001783(n) / (Product_{d|n} (d!/d^d)^A008683(n/d)) = (Product_{GCD(k, n)=1} k) / (Product_{d|n} (d!/d^d)^A008683(n/d)) = A175504(n) * n. [From Jaroslav Krizek (jaroslav.krizek(AT)atlas.cz), May 31 2010]
|
|
|
MAPLE
| A062981 := proc(n)
n^numtheory[phi](n) ;
end proc:
seq(A062981(n), n=1..20) ; # R. J. Mathar, Oct 15 2011
|
|
|
PROG
| (PARI) { for (n=1, 100, write("b062981.txt", n, " ", n^eulerphi(n)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Aug 14 2009]
|
|
|
CROSSREFS
| Cf. A000010, A004124, A193679.
Sequence in context: A078707 A085332 A204424 * A069622 A200944 A137189
Adjacent sequences: A062978 A062979 A062980 * A062982 A062983 A062984
|
|
|
KEYWORD
| nice,nonn
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Jul 24 2001
|
| |
|
|
