OFFSET
1
LINKS
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
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 15 2022
STATUS
approved