|
| |
|
|
A124620
|
|
Odd interprimes divisible by 17.
|
|
7
| |
|
|
459, 765, 969, 1003, 1207, 1377, 1581, 1785, 2295, 2601, 2703, 3213, 3723, 3995, 4131, 4403, 4641, 4947, 5933, 5967, 6409, 6477, 6579, 6613, 6749, 6987, 7701, 8075, 8517, 9435, 9741, 9775, 9877, 9945, 10217, 10455, 10897, 10965, 11305, 11645
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| Do[If[OddQ[(Prime[n + 1] + Prime[n])/2] && Mod[(Prime[n + 1] + Prime[n])/2, 17] == 0, Print[(Prime[n + 1] + Prime[n])/2]], {n, 1, 3000}] (*Artur Jasinski*)
|
|
|
CROSSREFS
| Cf. A072569, A072572, A072573, A126228, A126229, A126230, A124619, A126231, A124622, A126233.
Sequence in context: A093058 A201257 A062043 * A121970 A055162 A055159
Adjacent sequences: A124617 A124618 A124619 * A124621 A124622 A124623
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Dec 21 2006
|
|
|
EXTENSIONS
| Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Jan 09 2007
|
| |
|
|
