A361123 1 if n-th composite number A002808(n) is divisible by 3, otherwise 0.

0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0

Offset

1

Comments

a(n) = 1 - A361122(n).

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

With[{nn=200}, If[Mod[#, 3]==0, 1, 0]&/@Select[Range[nn], CompositeQ]] (* Harvey P. Dale, Feb 11 2024 *)

Crossrefs

Cf. A002808, A181923, A361121, A361122.

Sequence in context: A173923 A260393 A360113 * A125122 A101455 A000035

Adjacent sequences: A361120 A361121 A361122 * A361124 A361125 A361126

Keyword

nonn

Author

Scott R. Shannon, Rémy Sigrist and N. J. A. Sloane, Mar 04 2023

Status

approved