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,1

Links

Table of n, a(n) for n=1..25.

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

Cf. A117563, A117078, A117873, A006562.

Sequence in context: A164290 A201787 A289390 * A142854 A065098 A256378

Adjacent sequences: A118571 A118572 A118573 * A118575 A118576 A118577

Keyword

nonn

Author

Rémi Eismann and Fabien Sibenaler, May 07 2006

Extensions

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

Status

approved