This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A185942 #12 Jul 23 2017 21:43:13
%S A185942 1741,1747,1753,3049,3301,4591,5101,6361,7351,7369,8311,8707,8713,
%T A185942 8887,9067,9091,9103,9631,10639,11287,12577,12823,12829,13267,15187,
%U A185942 15583,15817,15889,15901,16363,16369,16561,16729,16981,17041,17419,17431,17839,18199,18211,19213,19219,19471,19477,19483,19489,20071
%N A185942 First of a run of 4 or more consecutive primes which all equal 1 (mod 3).
%C A185942 Subsequence of terms of A185936 such that A185936(k+1) = nextprime(A185936(k)).
%H A185942 G. C. Greubel, <a href="/A185942/b185942.txt">Table of n, a(n) for n = 1..5000</a>
%t A185942 mod3Q[l_]:=Union[Mod[#,3]&/@l]=={1}
%t A185942 Transpose[Select[Partition[Prime[Range[2500]],4,1],mod3Q]][[1]] (* _Harvey P. Dale_, Feb 16 2011 *)
%o A185942 (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]","))
%Y A185942 Cf. A185934 - A185941.
%K A185942 nonn
%O A185942 1,1
%A A185942 _M. F. Hasler_, Feb 06 2011