OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[1, 2000, 2], !Divisible[EulerPhi[#], DivisorSigma[0, #]] &] (* Amiram Eldar, May 15 2024 *)
PROG
(PARI) is(k) = if(k%2, my(f = factor(k), d = numdiv(f), p = eulerphi(f)); p % d, 0); \\ Amiram Eldar, May 15 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Offset corrected by Amiram Eldar, May 15 2024
STATUS
approved