OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
MATHEMATICA
f[n_] := Block[{d = Divisors[n]}, d[[Mod[EulerPhi[n], Length[d]] + 1]]]; Table[f[n], {n, 100}] (* Ray Chandler, Oct 26 2006 *)
PROG
(PARI) A124331(n) = { my(m=eulerphi(n)%numdiv(n), ds=divisors(n)); ds[1+m]; }; \\ Antti Karttunen, Mar 30 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet and Ray Chandler, Oct 26 2006
STATUS
approved