This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A241198 #8 Apr 14 2016 05:00:56
%S A241198 1,2,3,15,35,77,1463,1309,1001,4147,2093,19019,17017,39767,35581,
%T A241198 323323,10023013,1339481,676039,20957209,2800733,86822723
%N A241198 Denominator of new minima of phi(p-1)/(p-1), where phi is Euler's totient function and p = prime(n).
%C A241198 The values of p are in A241196. The numerator is in A241197.
%t A241198 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 A241198 Cf. A008330 (phi(prime(n)-1)), A073918, A241194, A241195.
%K A241198 nonn,frac,more
%O A241198 1,2
%A A241198 _T. D. Noe_, Apr 17 2014
%E A241198 a(20)-a(22) from _Giovanni Resta_, Apr 14 2016