login
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).
2
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
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
Sequence in context: A317234 A049724 A060602 * A066497 A205963 A208895
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 13 2002
EXTENSIONS
Title improved by Amiram Eldar, Jul 20, 2019
STATUS
approved