|
|
A072573
|
|
Odd interprimes not divisible by 3.
|
|
12
|
|
|
205, 217, 473, 515, 625, 667, 803, 1003, 1207, 1243, 1313, 1465, 1505, 1517, 1537, 1681, 1715, 1795, 1817, 1895, 2075, 2105, 2191, 2303, 2405, 2453, 2585, 2627, 2783, 2933, 3055, 3073, 3175, 3197, 3265, 3337, 3353, 3505, 3565, 3665, 3937, 3995, 4085
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
a = Table[ Prime[n], {n, 2, 600}]; b = {}; Do[d = (a[[n + 1]] - a[[n]])/2; If[ OddQ[ a[[n]] + d] && Mod[d, 3] == 0, b = Append[b, a[[n]] + d]], {n, 1, 598}]; b
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|