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,2

Links

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

Mathematica

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

Crossrefs

Cf. A000010, A002322.

Sequence in context: A317234 A049724 A060602 * A066497 A205963 A208895

Adjacent sequences: A066602 A066603 A066604 * A066606 A066607 A066608

Keyword

nonn

Author

Robert G. Wilson v, Jan 13 2002

Extensions

Title improved by Amiram Eldar, Jul 20, 2019

Status

approved