The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A354982 a(n) = 1 if n is a prime power congruent to 1 (mod 3), otherwise 0. 3
 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 (list; graph; refs; listen; history; text; internal format)
 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 13 22:05 EDT 2024. Contains 375910 sequences. (Running on oeis4.)