A185942 First of a run of 4 or more consecutive primes which all equal 1 (mod 3).

1741, 1747, 1753, 3049, 3301, 4591, 5101, 6361, 7351, 7369, 8311, 8707, 8713, 8887, 9067, 9091, 9103, 9631, 10639, 11287, 12577, 12823, 12829, 13267, 15187, 15583, 15817, 15889, 15901, 16363, 16369, 16561, 16729, 16981, 17041, 17419, 17431, 17839, 18199, 18211, 19213, 19219, 19471, 19477, 19483, 19489, 20071

Offset

1,1

Comments

Subsequence of terms of A185936 such that A185936(k+1) = nextprime(A185936(k)).

Links

G. C. Greubel, Table of n, a(n) for n = 1..5000

Mathematica

mod3Q[l_]:=Union[Mod[#, 3]&/@l]=={1}
Transpose[Select[Partition[Prime[Range[2500]], 4, 1], mod3Q]][[1]]  (* Harvey P. Dale, Feb 16 2011 *)

Prog

(PARI) s=Mod([1, 1, 1, 1], 3); o=vector(#s); i=0; forprime(p=1, 3e4, o[i++%#o+1]=p; o-s|print1(o[(i+1)%#o+1]", "))

Crossrefs

Cf. A185934 - A185941.

Sequence in context: A184666 A022061 A107525 * A090837 A250466 A260014

Adjacent sequences: A185939 A185940 A185941 * A185943 A185944 A185945

Keyword

nonn

Author

M. F. Hasler, Feb 06 2011

Status

approved