A354028 a(n) = 1 if n is a prime power of the form 4m+3, otherwise 0.

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

Links

Antti Karttunen, Table of n, a(n) for n = 1..65539

Index entries for characteristic functions

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.

Cf. also A010055, A079261, A174275, A353817, A354029, A354030, A354033.

Sequence in context: A059648 A288707 A079261 * A359152 A285495 A073059

Adjacent sequences: A354025 A354026 A354027 * A354029 A354030 A354031

Keyword

nonn

Author

Antti Karttunen, May 15 2022

Status

approved