A118574 Primes for which the level is equal to 79 in A117563.

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

Author

Rémi Eismann and Fabien Sibenaler, May 07 2006

Keywords

• nonn

Examples

			1039 = 1033 + 1033 mod(13) = 1033 + 1033 mod(1027), 1033 has level 1027/13 = 79.
		

Crossrefs

Cf. A117563, A117078, A117873, A006562.

Programs

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 *)

Extensions

More terms from Robert G. Wilson v, May 09 2006