%I #12 Jul 31 2015 20:56:11
%S 239,719,1033,1193,2143,2777,3889,5953,15917879,16427897,16754483,
%T 24597451,24612613,27756503,28261307,28863287,30493373,30953633,
%U 33444023,34346203,41488301,44980259,45796943,50146069,50682479
%N Primes for which the level is equal to 79 in A117563.
%e 1039 = 1033 + 1033 mod(13) = 1033 + 1033 mod(1027), 1033 has level 1027/13 = 79.
%t 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 Cf. A117563, A117078, A117873, A006562.
%K nonn
%O 1,1
%A _RĂ©mi Eismann_ and _Fabien Sibenaler_, May 07 2006
%E More terms from _Robert G. Wilson v_, May 09 2006