|
%I #9 Jul 20 2019 17:56:34
%S 1,8,24,63,80,240,455,819,1365,2387,2720,3276,3591,4095,7280,9139,
%T 13104,18981,21483,21840,24605,32760,44289,45695,63973,122915,132867,
%U 172081,191919,246753,319865,520025,575757,860405,959595,1233765
%N Numbers k such that phi(k)/lambda(k) increases to a record value, where phi(k) is the Euler totient function (A000010) and lambda(k) is the Carmichael lambda function (A002322).
%H Amiram Eldar, <a href="/A066605/b066605.txt">Table of n, a(n) for n = 1..88</a>
%t a = 0; c = {}; Do[ b = EulerPhi[n]/CarmichaelLambda[n]; If[ b > a, a = b; c = Append[c, n]], {n, 1, 10^7}]; c
%Y Cf. A000010, A002322.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Jan 13 2002
%E Title improved by _Amiram Eldar_, Jul 20, 2019
|
