OFFSET
1,1
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
KEYWORD
nonn
AUTHOR
M. F. Hasler, Feb 06 2011
STATUS
approved