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 A287171 #60 Mar 23 2018 19:48:19 %S A287171 998051413,4976990483,5038640083,5280622483,5901887533,6840045103, %T A287171 8733200093,11838052453,11978292923,12348742883,12844988753, %U A287171 13009792643,13658681843,13849573433 %N A287171 Initial prime in set of 4 consecutive primes in arithmetic progression with difference 78. %C A287171 a(1) = 998051413 = A052239(13). %H A287171 Charles R Greathouse IV, <a href="/A287171/b287171.txt">Table of n, a(n) for n = 1..10000</a> %F A287171 a(n) >> n log^4 n. - _Charles R Greathouse IV_, May 28 2017 %t A287171 Select[Partition[Prime[Range[7*10^8]],4,1],Differences[#]=={78,78,78}&][[All,1]] (* _Harvey P. Dale_, Mar 17 2018 *) %o A287171 (PARI) p=2;q=3;r=5; forprime(s=7,, if(s-r==78 && r-q==78 && q-p==78, print1(p", ")); p=q; q=r; r=s) \\ _Charles R Greathouse IV_, May 27 2017 %Y A287171 Cf. A052239. %K A287171 nonn %O A287171 1,1 %A A287171 _Zak Seidov_, May 27 2017