%I #9 Mar 23 2020 04:08:43
%S 205,217,473,515,625,667,803,1003,1207,1243,1313,1465,1505,1517,1537,
%T 1681,1715,1795,1817,1895,2075,2105,2191,2303,2405,2453,2585,2627,
%U 2783,2933,3055,3073,3175,3197,3265,3337,3353,3505,3565,3665,3937,3995,4085
%N Odd interprimes not divisible by 3.
%H Amiram Eldar, <a href="/A072573/b072573.txt">Table of n, a(n) for n = 1..10000</a>
%t 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
%Y Cf. A072569, A072572, A024675.
%K nonn
%O 1,1
%A _Marco Matosic_, Jun 25 2002
%E Edited by _N. J. A. Sloane_ and _Robert G. Wilson v_, Jun 27 2002
|