A346587 Value of k for incrementally largest value of k/A002322(k), where A002322 is the Carmichael function.

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

Author

Sofia Lacerda, Jul 24 2021

Keywords

• nonn
• easy

Crossrefs

Cf. A002322.

Programs

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 *)

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