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

251, 1493, 1889, 1901, 2393, 2399, 4373, 4391, 4451, 4673, 4679, 5237, 5351, 5381, 6311, 7079, 7103, 7793, 7817, 7823, 7883, 8111, 9203, 9209, 9467, 9473, 9833, 10181, 11393, 11783, 11789, 12113, 12641, 12647, 12653, 12923, 13103, 13451, 14741, 15749

Offset: 1

Author

M. F. Hasler, Feb 06 2011

Keywords

• nonn

Comments

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

Links

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

Crossrefs

Cf. A185938.

Programs

Mathematica

pr6Q[l_]:=And@@(Mod[#,3]==2&/@l)
Transpose[Select[Partition[Prime[Range[2000]],4,1],pr6Q]][[1]]  (* Harvey P. Dale, Feb 13 2011 *)
Prime[#]&/@(SequencePosition[Mod[#,3]&/@Prime[Range[2000]],{2,2,2,2}][[;;,1]]) (* Harvey P. Dale, Jan 26 2024 *)

PARI

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