login
A346587
Value of k for incrementally largest value of k/A002322(k), where A002322 is the Carmichael function.
0
1, 2, 6, 8, 12, 24, 60, 80, 120, 240, 504, 1040, 1092, 1170, 1260, 1365, 1456, 1560, 1638, 1680, 1820, 1872, 2184, 2340, 2520, 2730, 3120, 3276, 3640, 4095, 4368, 4680, 5040, 5460, 6552, 7280, 8190, 9360, 10920, 13104, 16380, 21840, 32760, 65520
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
Cf. A002322.
Sequence in context: A082473 A325177 A263312 * A226818 A113462 A065392
KEYWORD
nonn,easy
AUTHOR
Sofia Lacerda, Jul 24 2021
STATUS
approved