OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..169 (terms below 10^22 calculated using data from Claude Goutier)
Amiram Eldar, Table of n, a(n), (a(n)-1)/A002322(a(n)) for n = 1..169.
MATHEMATICA
seq[kmax_] := Module[{s = {}, r, rm = 0, lam}, Do[If[CompositeQ[k], lam = CarmichaelLambda[k]; If[Mod[k, lam] == 1, r = (k - 1)/lam; If[r > rm, rm = r; AppendTo[s, k]]]], {k, 9, kmax, 2}]; s]; seq[10^6]
PROG
(PARI) lista(kmax) = {my(r, rm = 0, lam); forcomposite(k = 4, kmax, if(k % 2, lam = lcm(znstar(k)[2]); if(k % lam == 1, r = (k-1)/lam; if(r > rm, rm = r; print1(k, ", "))))); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 14 2023
STATUS
approved