A072572 Odd interprimes divisible by 3.

9, 15, 21, 39, 45, 69, 81, 93, 99, 105, 111, 129, 165, 195, 225, 231, 279, 309, 315, 351, 363, 381, 393, 399, 405, 441, 453, 459, 465, 483, 489, 495, 501, 615, 645, 675, 687, 705, 723, 741, 747, 759, 765, 771, 825, 855, 861, 879, 885, 897, 909, 915, 933

Offset: 1

Author

Marco Matosic, Jun 25 2002

Keywords

• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A072569, A072573, A024675.

Programs

Mathematica

a = Table[ Prime[n], {n, 2, 200}]; 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, 198}]; b
Select[Mean/@Partition[Prime[Range[4,200]],2,1],OddQ[#]&&Divisible[ #,3]&] (* Harvey P. Dale, Oct 29 2013 *)

Extensions

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

Corrected by T. D. Noe, Nov 01 2006