login
A353817
a(n) = 1 if n is a prime power with an odd exponent, otherwise 0.
3
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
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.
Sequence in context: A073070 A370702 A189687 * A374474 A284653 A359158
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 15 2022
STATUS
approved