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,1

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

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 *)

Prog

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

Crossrefs

Cf. A185938.

Sequence in context: A339182 A008917 A025396 * A215607 A099734 A054800

Adjacent sequences: A185938 A185939 A185940 * A185942 A185943 A185944

Keyword

nonn

Author

M. F. Hasler, Feb 06 2011

Status

approved