login
A118574
Primes for which the level is equal to 79 in A117563.
0
239, 719, 1033, 1193, 2143, 2777, 3889, 5953, 15917879, 16427897, 16754483, 24597451, 24612613, 27756503, 28261307, 28863287, 30493373, 30953633, 33444023, 34346203, 41488301, 44980259, 45796943, 50146069, 50682479
OFFSET
1,1
EXAMPLE
1039 = 1033 + 1033 mod(13) = 1033 + 1033 mod(1027), 1033 has level 1027/13 = 79.
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Robert G. Wilson v, May 09 2006
STATUS
approved