OFFSET
1,2
MATHEMATICA
max=0; lst={}; Do[t=k/CarmichaelLambda@k; If[t>max, AppendTo[lst, k]; max=t], {k, 100000}]; lst (* Giorgos Kalogeropoulos, Jul 26 2021 *)
PROG
(PARI) f(n) = lcm(znstar(n)[2]); \\ A002322
lista(nn) = {my(m=0, x, list=List()); for (n=1, nn, if ((x = n/f(n)) > m, m = x; listput(list, n)); ); Vec(list); } \\ Michel Marcus, Aug 04 2021
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Sofia Lacerda, Jul 24 2021
STATUS
approved