A354188 a(n) = 1 if phi(A267099(n)) is equal to phi(n), and 0 otherwise. Here A267099 is fully multiplicative involution swapping the positions of 4k+1 and 4k+3 primes, and phi is Euler totient function.

1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1

Offset

1

Links

Antti Karttunen, Table of n, a(n) for n = 1..100000

Index entries for characteristic functions

Formula

a(n) = 1 if A354101(n) = 0, and 0 otherwise.

a(n) = [A000010(n) == A354102(n)], where [ ] is the Iverson bracket.

a(n) <= A354108(n).

Prog

(PARI) A354188(n) = (eulerphi(A267099(n)) == eulerphi(n)); \\ Uses the program given in A267099.

Crossrefs

Characteristic function of A354189.

Cf. A000010, A267099, A354101, A354102, A354108.

Sequence in context: A154269 A036987 A354193 * A342025 A353518 A353687

Adjacent sequences: A354185 A354186 A354187 * A354189 A354190 A354191

Keyword

nonn

Author

Antti Karttunen, May 19 2022

Status

approved