%I #11 Jun 19 2017 18:12:13
%S 1,1,1,1,1,1,1,1,2,2,1,1,3,2,1,2,2,1,1,1,1,1,1,1,2,1,1,3,3,1,1,1,1,3,
%T 1,1,2,1,4,2,1,1,1,1,1,1,1,2,1,1,2,3,2,1,1,1,1,1,1,2,2,1,1,1,2,1,1,1,
%U 3,3
%N Run lengths in A039704.
%C Is the sequence bounded?
%C On Dickson's conjecture this sequence is unbounded. Records: a(1) = 1, a(9) = 2, a(13) = 3, a(39) = 4, a(180) = 6, a(1348) = 7, a(6698) = 8, a(8156) = 10, a(20230) = 11, a(79011) = 12, a(99250) = 13, a(710895) = 15, a(2421600) = 16, a(7128444) = 17, a(11898707) = 18, a(14368535) = 20, a(21943755) = 22, a(519775979) = 25, a(3111006505) = 27. - _Charles R Greathouse IV_, Jun 19 2017
%H Zak Seidov, <a href="/A288915/b288915.txt">Table of n, a(n) for n = 1..20000</a>
%t Length /@ Split[Mod[Prime[Range[100]], 6]]
%o (PARI) t=1;p=2;forprime(q=3,1e3,if((q-p)%6==0,t++,print1(t", ");t=1);p=q) \\ _Charles R Greathouse IV_, Jun 19 2017
%Y Cf. A039704, A057620, A057622.
%K nonn
%O 1,9
%A _Zak Seidov_, Jun 19 2017
%E a(70) corrected by _Charles R Greathouse IV_, Jun 19 2017