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