login
Denominator of new minima of phi(p-1)/(p-1), where phi is Euler's totient function and p = prime(n).
3

%I #8 Apr 14 2016 05:00:56

%S 1,2,3,15,35,77,1463,1309,1001,4147,2093,19019,17017,39767,35581,

%T 323323,10023013,1339481,676039,20957209,2800733,86822723

%N Denominator of new minima of phi(p-1)/(p-1), where phi is Euler's totient function and p = prime(n).

%C The values of p are in A241196. The numerator is in A241197.

%t tMin = {{2, 1}}; Do[p = Prime[n]; tn = EulerPhi[p - 1]/(p - 1); If[tn < tMin[[-1, -1]], AppendTo[tMin, {p, tn}]], {n, 10^7}]; Denominator[Transpose[tMin][[2]]]

%Y Cf. A008330 (phi(prime(n)-1)), A073918, A241194, A241195.

%K nonn,frac,more

%O 1,2

%A _T. D. Noe_, Apr 17 2014

%E a(20)-a(22) from _Giovanni Resta_, Apr 14 2016