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 A118574 #12 Jul 31 2015 20:56:11
%S A118574 239,719,1033,1193,2143,2777,3889,5953,15917879,16427897,16754483,
%T A118574 24597451,24612613,27756503,28261307,28863287,30493373,30953633,
%U A118574 33444023,34346203,41488301,44980259,45796943,50146069,50682479
%N A118574 Primes for which the level is equal to 79 in A117563.
%e A118574 1039 = 1033 + 1033 mod(13) = 1033 + 1033 mod(1027), 1033 has level 1027/13 = 79.
%t A118574 fQ[n_] := Block[{p = Prime@n, np = Prime[n + 1]}, (2p - np)/Min@Select[Divisors[2p - np], # >= np - p &] == 79]; lst = {}; Do[ If[fQ@n, AppendTo[lst, Prime@n]], {n, 10^7}]; lst (* _Robert G. Wilson v_, May 09 2006 *)
%Y A118574 Cf. A117563, A117078, A117873, A006562.
%K A118574 nonn
%O A118574 1,1
%A A118574 _Rémi Eismann_ and _Fabien Sibenaler_, May 07 2006
%E A118574 More terms from _Robert G. Wilson v_, May 09 2006