A354982 a(n) = 1 if n is a prime power congruent to 1 (mod 3), otherwise 0.

0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 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..100000

Index entries for characteristic functions

Formula

a(n) = A069513(n) * A079978(n-1).

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

Characteristic function of A137827.

Cf. A069513, A079978, A354983.

Sequence in context: A107078 A341613 A163533 * A020987 A288372 A354321

Adjacent sequences: A354979 A354980 A354981 * A354983 A354984 A354985

Keyword

nonn

Author

Antti Karttunen, Jun 15 2022

Status

approved