%I A099618
%S A099618 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,
%T A099618 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,
%U A099618 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
%N A099618 a(n) = 1 if the n-th prime == 1 mod 6, otherwise a(n) = 0.
%t A099618 Table[Mod[Mod[Mod[Mod[Prime[k], 6], 5], 3], 2], {k, 1, 120}]
%Y A099618 Cf. A000040, A039704, A091178.
%Y A099618 Sequence in context: A038189 A072783 A064911 this_sequence A106002 A066247 
               A151774
%Y A099618 Adjacent sequences: A099615 A099616 A099617 this_sequence A099619 A099620 
               A099621
%K A099618 nonn
%O A099618 1,1
%A A099618 Joseph Biberstine (jrbibers(AT)indiana.edu), Nov 19 2004