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

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, 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, 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, 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

Prog

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

Crossrefs

Characteristic function of A354192 (which gives the fixed points of permutation A267099).

Sequence in context: A321083 A154269 A036987 * A354188 A342025 A353518

Adjacent sequences: A354190 A354191 A354192 * A354194 A354195 A354196

Keyword

nonn

Author

Antti Karttunen, May 20 2022

Status

approved