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

Author

M. F. Hasler, Feb 06 2011

Keywords

• nonn

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

Crossrefs

Cf. A185934 - A185941.

Programs

Mathematica

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

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]","))