|
Search: id:A118574
|
|
| |
|
| 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
(list; graph; listen)
|
|
|
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 - from Robert G. Wilson v (rgwv(at)rgwv.com), May 09 2006
|
|
CROSSREFS
|
Cf. A117563, A117078, A117873, A006562.
Sequence in context: A142356 A142557 A164290 this_sequence A142854 A065098 A065750
Adjacent sequences: A118571 A118572 A118573 this_sequence A118575 A118576 A118577
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Remi Eismann and Fabien Sibenaler (fabien.sibenaler(AT)club-internet.fr), May 07 2006
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(at)rgwv.com), May 09 2006
|
|
|
Search completed in 0.002 seconds
|
