A091237 Lengths of runs in A039702.

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, 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, 1, 1, 1, 1, 1, 1, 2, 2, 1, 2, 1, 1, 3, 2, 2, 2, 1, 3, 4

Offset

1,4

Comments

Lengths of runs, where a run is a succession of primes that are congruent mod 4.

Links

T. D. Noe, Table of n, a(n) for n = 1..10000

Mathematica

Most[Length /@ Split[Table[Mod[Prime[n], 4], {n, 200}]]] (* T. D. Noe, Sep 21 2012 *)

Crossrefs

Cf. A039702, A091318, A091267.

Sequence in context: A062246 A034095 A037811 * A143477 A214774 A320107

Adjacent sequences: A091234 A091235 A091236 * A091238 A091239 A091240

Keyword

nonn,easy

Author

N. J. A. Sloane, Feb 22 2004

Extensions

More terms from David Wasserman, Feb 28 2006

Status

approved