OFFSET
1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
MATHEMATICA
Array[Sign[DivisorSigma[1, EulerPhi[#]] - #] &, 100] (* Paolo Xausa, Feb 07 2025 *)
PROG
(PARI) A295304(n) = sign(sigma(eulerphi(n)) - n);
CROSSREFS
KEYWORD
sign
AUTHOR
Antti Karttunen, Nov 21 2017
STATUS
approved