OFFSET
1,2
LINKS
T. D. Noe, Table of n, a(n) for n = 1..100
Brett A. Harrison, On the reducibility of cyclotomic polynomials over finite fields, Am. Math. Monthly, Vol. 114, No. 9 (2007), pp. 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. - Jaroslav Krizek, May 31 2010
Sum_{n>=1} 1/a(n) = A239725. - Amiram Eldar, Nov 19 2020
MAPLE
A062981 := proc(n)
n^numtheory[phi](n) ;
end proc:
seq(A062981(n), n=1..20) ; # R. J. Mathar, Oct 15 2011
MATHEMATICA
Table[n^EulerPhi[n], {n, 30}] (* Harvey P. Dale, Mar 30 2012 *)
PROG
(PARI) a(n) = n^eulerphi(n); \\ Harry J. Smith, Aug 14 2009
(Magma) [n^EulerPhi(n): n in [1..25]]; // Vincenzo Librandi, Apr 05 2017
CROSSREFS
KEYWORD
nice,nonn
AUTHOR
Reinhard Zumkeller, Jul 24 2001
STATUS
approved