OFFSET
1
LINKS
MATHEMATICA
a[n_] := If[Divisible[n - EulerPhi[n], 4] , 1, 0]; Array[a, 100] (* Amiram Eldar, May 17 2022 *)
PROG
(PARI) A354097(n) = (0==((n-eulerphi(n))%4));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 17 2022
STATUS
approved