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 A289119 #12 Jun 29 2017 10:55:10
%S A289119 5,5,5,5,5,5,5,89,89,809,809,809,809,809,809,809,809,809,809,809,809,
%T A289119 3954889,15186319,15186319,15186319,77011289,77011289,77011289,
%U A289119 288413159,288413159,288413159,288413159,288413159,62585146739,114058236679,143014298809
%N A289119 Least prime beginning a string, of length at least n, of consecutive primes which alternate between types 6*k+1 and 6*k+5 or 6*k+5 and 6*k+1.
%C A289119 Conjecture: the sequence is infinite. (Motivation: the string HTHTHT... of length n eventually occurs in any sufficiently long sequence of coin tosses.)
%D A289119 R. K. Guy, Unsolved Problems in Number Theory, A4.
%H A289119 Giovanni Resta, <a href="/A289119/b289119.txt">Table of n, a(n) for n = 1..43</a>
%H A289119 Jens Kruse Andersen, <a href="http://primerecords.dk/congruent-primes.htm">Consecutive Congruent Primes</a>
%e A289119 For k = 3, 4, ..., 33, {Prime[k], Mod[Prime[k], 6]} = {5, 5}, {7, 1}, {11, 5}, {13, 1}, {17, 5}, {19, 1}, {23, 5}, {29, 5}, {31, 1}, {37, 1}, {41, 5}, {43, 1}, {47, 5}, {53, 5}, {59, 5}, {61, 1}, {67, 1}, {71, 5}, {73, 1}, {79, 1}, {83, 5}, {89, 5}, {97, 1}, {101, 5}, {103, 1}, {107, 5}, {109, 1}, {113, 5}, {127, 1}, {131, 5}, {137, 5}, so a(n) = 5, 5, 5, 5, 5, 5, 5, 89, 89 for n = 1, 2, ..., 9 with a(10) > 89.
%t A289119 j = 3; T = Table[ While[ Product[ Mod[ Prime[k + 1] - Prime[k], 6], {k, j, j + n}] == 0, j++]; Prime[j], {n, 0, 20}]; Prepend[T, 5]
%Y A289119 Cf. A057620, A057622, A289118.
%K A289119 nonn
%O A289119 1,1
%A A289119 _Jonathan Sondow_, Jun 25 2017
%E A289119 a(23)-a(36) from _Giovanni Resta_, Jun 29 2017