login
A354028
a(n) = 1 if n is a prime power of the form 4m+3, otherwise 0.
5
0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1
OFFSET
1
FORMULA
For n > 1, a(n) = A174275(n) - A354030(n).
a(n) >= A079261(n).
a(n) <= A353817(n) <= A010055(n).
a(n) <= A354029(n).
a(n) <= A354033(n).
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
Characteristic function of A085760.
Sequence in context: A059648 A288707 A079261 * A359152 A285495 A073059
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 15 2022
STATUS
approved