A099618 a(n) = 1 if the n-th prime == 1 mod 6, otherwise a(n) = 0.

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

Offset

1,1

Links

Table of n, a(n) for n=1..105.

Index entries for characteristic functions

Mathematica

Table[Mod[Mod[Mod[Mod[Prime[k], 6], 5], 3], 2], {k, 1, 120}]

Prog

(PARI) a(n) = (prime(n) % 6) == 1; \\ Michel Marcus, Jun 26 2019

Crossrefs

Cf. A000040, A039704, A091178.

Sequence in context: A341609 A064911 A174898 * A361496 A360125 A324883

Adjacent sequences: A099615 A099616 A099617 * A099619 A099620 A099621

Keyword

nonn

Author

Joseph Biberstine (jrbibers(AT)indiana.edu), Nov 19 2004

Status

approved