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 A185936 #16 Mar 07 2025 06:30:52
%S A185936 151,199,367,523,601,727,991,1063,1117,1231,1453,1531,1741,1747,1753,
%T A185936 1759,2161,2281,2671,3049,3061,3169,3301,3307,3499,3631,3727,4093,
%U A185936 4159,4423,4549,4591,4597,4651,4987,5101,5107,5197,5419,5557,5743,5821,6067,6361,6367,6397,6607,6661,7351,7369,7393,7951,8179,8311
%N A185936 First of a run of 3 or more consecutive primes which all equal 1 (mod 3).
%H A185936 Paolo Xausa, <a href="/A185936/b185936.txt">Table of n, a(n) for n = 1..10000</a>
%t A185936 Select[Partition[Prime[Range[1500]], 3, 1], Mod[#, 3] == {1, 1, 1} &][[All, 1]] (* _Paolo Xausa_, Mar 07 2025 *)
%o A185936 (PARI) s=Mod([1,1,1],3); o=vector(3); i=0; forprime( p=1,1e4, o[i++%3+1]=p; o-s || print1( o[(i+1)%3+1]","))
%Y A185936 A subsequence of A185934.
%K A185936 nonn
%O A185936 1,1
%A A185936 _M. F. Hasler_, Feb 06 2011