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,1

Links

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

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 *)

Crossrefs

Cf. A072569, A072573, A024675.

Sequence in context: A338082 A336115 A072569 * A029708 A125215 A102739

Adjacent sequences: A072569 A072570 A072571 * A072573 A072574 A072575

Keyword

nonn

Author

Marco Matosic, Jun 25 2002

Extensions

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

Corrected by T. D. Noe, Nov 01 2006

Status

approved