|
%I #10 Aug 20 2021 18:44:56
%S 1,2,6,8,12,24,60,80,120,240,504,1040,1092,1170,1260,1365,1456,1560,
%T 1638,1680,1820,1872,2184,2340,2520,2730,3120,3276,3640,4095,4368,
%U 4680,5040,5460,6552,7280,8190,9360,10920,13104,16380,21840,32760,65520
%N Value of k for incrementally largest value of k/A002322(k), where A002322 is the Carmichael function.
%t max=0;lst={};Do[t=k/CarmichaelLambda@k;If[t>max,AppendTo[lst,k];max=t],{k,100000}];lst (* _Giorgos Kalogeropoulos_, Jul 26 2021 *)
%o (PARI) f(n) = lcm(znstar(n)[2]); \\ A002322
%o 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
%Y Cf. A002322.
%K nonn,easy
%O 1,2
%A _Sofia Lacerda_, Jul 24 2021
|
