OFFSET
1,2
COMMENTS
If such a divisor exists, it is necessarily unique. See Franz Vrabec's Dec 12 2012 comment in A002618.
Each natural number n > 0 occurs exactly once in this sequence, at position A002618(n).
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..21000
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..100000
MATHEMATICA
With[{s = EulerPhi /@ Range@ 120}, Table[DivisorSum[n, # &, # s[[#]] == n &], {n, Length@ s}]] (* Michael De Vlieger, Sep 29 2019 *)
PROG
(PARI) A327172(n) = { fordiv(n, d, if(eulerphi(d)*d == n, return(d))); (0); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Sep 28 2019
STATUS
approved