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 A057622 #33 Oct 19 2017 03:13:52
%S A057622 5,23,47,251,1889,7793,43451,243161,726893,759821,1820111,1820111,
%T A057622 10141499,19725473,19725473,136209239,400414121,400414121,489144599,
%U A057622 489144599,766319189,766319189,21549657539,21549657539,21549657539,140432294381,140432294381,437339303279,1871100711071,3258583681877
%N A057622 Initial prime in first sequence of n consecutive primes congruent to 5 modulo 6.
%C A057622 Same as A057621 except for a(1). See A057620 for primes congruent to 1 (mod 6). See A055626 for the variant "exactly n", which is an upper bound, cf. formula. - _M. F. Hasler_, Sep 03 2016
%C A057622 The sequence is infinite, by Shiu's theorem. - _Jonathan Sondow_, Jun 22 2017
%D A057622 R. K. Guy, "Unsolved Problems in Number Theory", A4
%H A057622 Giovanni Resta, <a href="/A057622/b057622.txt">Table of n, a(n) for n = 1..35</a> (terms < 4*10^14)
%H A057622 J. K. Andersen, <a href="http://primerecords.dk/congruent-primes.htm">Consecutive Congruent Primes</a>.
%H A057622 D. K. L. Shiu, <a href="http://dx.doi.org/10.1112/S0024610799007863">Strings of Congruent Primes</a>, J. Lond. Math. Soc. 61 (2) (2000) 359-373 [<a href="http://www.ams.org/mathscinet-getitem?mr=1760689">MR1760689</a>]
%F A057622 a(n) = A000040(A247967(n)). a(n) = min { A055626(k); k >= n }. - _M. F. Hasler_, Sep 03 2016
%e A057622 a(12) = 1820111 because this number is the first in a sequence of 12 consecutive primes all of the form 6n + 5.
%t A057622 p = 0; Do[a = Table[-1, {n}]; k = Max[1, p]; While[Union@ a != {5}, k = NextPrime@ k; a = Take[AppendTo[a, Mod[k, 6]], -n]]; p = NestList[NextPrime[#, -1] &, k, n]; Print[p[[-2]]]; p = p[[-1]], {n, 18}] (* _Robert G. Wilson v_, updated by _Michael De Vlieger_, Sep 03 2016 *)
%t A057622 Table[k = 1; While[Total@ Boole@ Map[Mod[#, 6] == 5 &, NestList[NextPrime, Prime@ k, n - 1]] != n, k++]; Prime@ k, {n, 12}] (* _Michael De Vlieger_, Sep 03 2016 *)
%Y A057622 Cf. A057619, A057620, A057624.
%K A057622 nonn
%O A057622 1,1
%A A057622 _Robert G. Wilson v_, Oct 09 2000
%E A057622 More terms from _Don Reble_, Nov 16 2003
%E A057622 More terms from _Jens Kruse Andersen_, May 30 2006
%E A057622 Three lines of data (derived from J.K.Andersen's web page) completed by _M. F. Hasler_, Sep 02 2016