|
%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
|
