OFFSET
1,5
COMMENTS
a(n) < n^n/e. If n is prime, a(n)/n^n = (1-1/n)^n - 1/n -> 1/e as n -> infinity. - Robert Israel, Sep 18 2015
LINKS
Robert Israel, Table of n, a(n) for n = 1..388
Eric Weisstein's World of Mathematics, Totient Function
MAPLE
seq(numtheory:-phi(n)^n - n^numtheory:-phi(n), n=1..30); # Robert Israel, Sep 18 2015
MATHEMATICA
Table[EulerPhi[n]^n - n^EulerPhi[n], {n, 1, 20}]
PROG
(PARI) a(n) = eulerphi(n)^n - n^eulerphi(n) \\ Anders Hellström, Aug 31 2015
(Magma) [EulerPhi(n)^n-n^EulerPhi(n): n in [1..20]]; // Vincenzo Librandi, Sep 01 2015
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Aug 31 2015
STATUS
approved