A353817 a(n) = 1 if n is a prime power with an odd exponent, otherwise 0.

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

Offset

1

Links

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

Index entries for characteristic functions

Index entries for sequences computed from exponents in factorization of n

Formula

a(n) = A010055(n) - A353800(n).

a(n) >= A010051(n).

a(n) >= A354028(n).

Mathematica

a[n_] := If[n > 1 && Length[(f = FactorInteger[n])] == 1 && OddQ[f[[1, 2]]], 1, 0]; Array[a, 100] (* Amiram Eldar, May 15 2022 *)

Prog

(PARI) A353817(n) = (isprimepower(n)%2);

Crossrefs

Characteristic function of A246551.

Cf. A010051, A010055, A353800, A354028.

Sequence in context: A073070 A370702 A189687 * A284653 A359158 A099104

Adjacent sequences: A353814 A353815 A353816 * A353818 A353819 A353820

Keyword

nonn

Author

Antti Karttunen, May 15 2022

Status

approved