OFFSET
1,2
COMMENTS
The numerators are in A241194.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
MAPLE
with(numtheory): A241195:=n->denom(phi(ithprime(n)-1) / (ithprime(n)-1)): seq(A241195(n), n=1..100); # Wesley Ivan Hurt, Apr 06 2015
MATHEMATICA
Denominator[Table[EulerPhi[p - 1]/(p - 1), {p, Prime[Range[100]]}]]
PROG
(PARI) lista(nn) = forprime(p=2, nn, print1(denominator(eulerphi(p-1)/(p-1)), ", ")); \\ Michel Marcus, Jan 03 2015
(Magma) [Denominator(EulerPhi(NthPrime(n)-1)/(NthPrime(n)-1)): n in [1..80]]; // Vincenzo Librandi, Apr 06 2015
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
T. D. Noe, Apr 17 2014
STATUS
approved