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

 

Logo
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

Index entries for characteristic functions

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.

License Agreements, Terms of Use, Privacy Policy. .

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