OFFSET
1,1
COMMENTS
LINKS
PROG
(PARI) isA326141(n) = if(!(n%2), 0, my(t=0, u=0); fordiv(n, d, d -= 2*eulerphi(d); if(d<0, t -= d, u += d)); (gcd(t, u)==u));
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Antti Karttunen, Jun 09 2019
STATUS
approved