OFFSET
1,4
LINKS
Robert Israel, Table of n, a(n) for n = 1..450
FORMULA
MAPLE
seq(numtheory:-phi(n!)/numtheory:-phi(n), n=1..50); # Robert Israel, Nov 13 2016
MATHEMATICA
Table[EulerPhi[n!]/EulerPhi[n], {n, 1, 25}] (* G. C. Greubel, Oct 30 2016 *)
PROG
(Magma) [EulerPhi(Factorial(n)) div EulerPhi(n): n in [1..25]]; // Vincenzo Librandi, Oct 30 2016
(PARI) a(n) = eulerphi(n!)/eulerphi(n); \\ Michel Marcus, Oct 30 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander R. Povolotsky, Oct 29 2016
STATUS
approved