OFFSET
1,2
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]]]
CROSSREFS
KEYWORD
nonn,frac,more
AUTHOR
T. D. Noe, Apr 17 2014
EXTENSIONS
a(20)-a(22) from Giovanni Resta, Apr 14 2016
STATUS
approved