cp's OEIS Frontend

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.

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

This page as a plain text file.
%I A241197 #9 Apr 14 2016 05:00:41
%S A241197 1,1,1,4,8,16,288,256,192,768,384,3456,3072,6912,6144,55296,1658880,
%T A241197 221184,110592,3317760,442368,13271040
%N A241197 Numerator of new minima of phi(p-1)/(p-1), where phi is Euler's totient function and p = prime(n).
%C A241197 The values of p are in A241196. The denominator is in A241198.
%e A241197 In decimal, the minima are about 1, 0.5, 0.333333, 0.266667, 0.228571, 0.207792, 0.196856, 0.195569, 0.191808, 0.185194, 0.183469, 0.181713, 0.180525, 0.173812, 0.172676, 0.171024, 0.165507, 0.165127, 0.163588.
%t A241197 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}]; Numerator[Transpose[tMin][[2]]]
%Y A241197 Cf. A008330 (phi(prime(n)-1)), A073918, A241194, A241195.
%K A241197 nonn,frac,more
%O A241197 1,4
%A A241197 _T. D. Noe_, Apr 17 2014
%E A241197 a(20)-a(22) from _Giovanni Resta_, Apr 14 2016