Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #18 Sep 08 2022 08:46:07
%S 1,2,2,3,5,3,2,3,11,7,15,3,5,7,23,13,29,15,33,35,3,13,41,11,3,5,51,53,
%T 3,7,7,65,17,69,37,15,13,3,83,43,89,15,95,3,7,33,35,37,113,19,29,119,
%U 15,5,2,131,67,15,69,35,141,73,51,31,13,79,33,7,173,87,11
%N Denominator of phi(prime(n)-1)/(prime(n)-1), where phi is Euler's totient function and prime(n) is the n-th prime.
%C The numerators are in A241194.
%H T. D. Noe, <a href="/A241195/b241195.txt">Table of n, a(n) for n = 1..10000</a>
%p with(numtheory): A241195:=n->denom(phi(ithprime(n)-1) / (ithprime(n)-1)): seq(A241195(n), n=1..100); # _Wesley Ivan Hurt_, Apr 06 2015
%t Denominator[Table[EulerPhi[p - 1]/(p - 1), {p, Prime[Range[100]]}]]
%o (PARI) lista(nn) = forprime(p=2, nn, print1(denominator(eulerphi(p-1)/(p-1)), ", ")); \\ _Michel Marcus_, Jan 03 2015
%o (Magma) [Denominator(EulerPhi(NthPrime(n)-1)/(NthPrime(n)-1)): n in [1..80]]; // _Vincenzo Librandi_, Apr 06 2015
%Y Cf. A000010 (phi), A241194 (numerators).
%K nonn,frac
%O 1,2
%A _T. D. Noe_, Apr 17 2014