OFFSET
0
LINKS
MATHEMATICA
Table[If[PrimeQ[Sqrt[n]], 1, 0], {n, 0, 130}] (* Harvey P. Dale, May 25 2019 *)
PROG
(PARI) A302048(n) = (2==isprimepower(n));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 24 2018
STATUS
approved