The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A354097 a(n) = 1 if n-phi(n) is a multiple of 4, otherwise 0. 3
 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1 LINKS Antti Karttunen, Table of n, a(n) for n = 1..65537 FORMULA a(n) = 1 iff A010873(A051953(n)) == 0. 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 Characteristic function of A354098. Cf. A000010, A010873, A051953. Cf. also A354037. Sequence in context: A353348 A359826 A353350 * A354927 A173861 A359464 Adjacent sequences: A354094 A354095 A354096 * A354098 A354099 A354100 KEYWORD nonn AUTHOR Antti Karttunen, May 17 2022 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified February 4 19:58 EST 2023. Contains 360059 sequences. (Running on oeis4.)