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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A354983 a(n) = 1 if n is thrice a prime power congruent to 1 (mod 3), otherwise 0. 3
 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 (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 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

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 7 20:05 EDT 2024. Contains 375749 sequences. (Running on oeis4.)