%I #8 Sep 21 2012 14:58:48
%S 1,1,1,2,2,2,1,1,2,2,1,1,1,2,1,2,3,2,2,2,1,1,1,1,1,2,1,1,1,1,2,4,2,1,
%T 1,1,1,1,1,1,2,1,1,2,2,1,1,1,2,2,1,2,4,1,1,1,1,2,3,7,2,1,1,1,1,1,1,1,
%U 1,1,1,1,1,1,2,2,1,2,1,1,3,2,2,2,1,3,4
%N Lengths of runs in A039702.
%C Lengths of runs, where a run is a succession of primes that are congruent mod 4.
%H T. D. Noe, <a href="/A091237/b091237.txt">Table of n, a(n) for n = 1..10000</a>
%t Most[Length /@ Split[Table[Mod[Prime[n], 4], {n, 200}]]] (* _T. D. Noe_, Sep 21 2012 *)
%Y Cf. A039702, A091318, A091267.
%K nonn,easy
%O 1,4
%A _N. J. A. Sloane_, Feb 22 2004
%E More terms from _David Wasserman_, Feb 28 2006
|