A066605 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).

1, 8, 24, 63, 80, 240, 455, 819, 1365, 2387, 2720, 3276, 3591, 4095, 7280, 9139, 13104, 18981, 21483, 21840, 24605, 32760, 44289, 45695, 63973, 122915, 132867, 172081, 191919, 246753, 319865, 520025, 575757, 860405, 959595, 1233765

Offset: 1

Author

Robert G. Wilson v, Jan 13 2002

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..88

Crossrefs

Cf. A000010, A002322.

Programs

Mathematica

a = 0; c = {}; Do[ b = EulerPhi[n]/CarmichaelLambda[n]; If[ b > a, a = b; c = Append[c, n]], {n, 1, 10^7}]; c

Extensions

Title improved by Amiram Eldar, Jul 20 2019