OFFSET
1
LINKS
MATHEMATICA
a[n_] := If[Mod[n, 3] == 1 && PrimePowerQ[n], 1, 0]; Array[a, 100] ( * Amiram Eldar, Jun 15 2022 *)
PROG
(PARI) A354982(n) = ((1==(n%3)) && isprimepower(n));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 15 2022
STATUS
approved