A072573 Odd interprimes not divisible by 3.

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

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

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
Select[Mean/@Partition[Prime[Range[600]], 2, 1], OddQ[#]&&Mod[#, 3]!=0&] (* Harvey P. Dale, Jun 12 2026 *)

Crossrefs

Cf. A072569, A072572, A024675.

Sequence in context: A339199 A263505 A270605 * A249052 A116177 A191834

Adjacent sequences: A072570 A072571 A072572 * A072574 A072575 A072576

Keyword

nonn,changed

Author

Marco Matosic, Jun 25 2002

Extensions

Edited by N. J. A. Sloane and Robert G. Wilson v, Jun 27 2002

Status

approved