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

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

Index entries for characteristic functions

Mathematica

a[n_] := If[Mod[n, 9] == 3 && PrimePowerQ[n/3], 1, 0]; Array[a, 100] (* Amiram Eldar, Jun 15 2022 *)

Prog

(PARI) A354983(n) = ((3==(n%9)) && isprimepower(n/3));

Crossrefs

Characteristic function of A354984.

Cf. A354982.

Sequence in context: A070109 A355454 A107846 * A179801 A374093 A353474

Adjacent sequences: A354980 A354981 A354982 * A354984 A354985 A354986

Keyword

nonn

Author

Antti Karttunen, Jun 15 2022

Status

approved