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

1, 2, 3, 15, 35, 77, 1463, 1309, 1001, 4147, 2093, 19019, 17017, 39767, 35581, 323323, 10023013, 1339481, 676039, 20957209, 2800733, 86822723

Offset: 1

Author

T. D. Noe, Apr 17 2014

Keywords

• nonn
• frac
• more

Comments

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

Crossrefs

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

Programs

Mathematica

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

Extensions

a(20)-a(22) from Giovanni Resta, Apr 14 2016