A124619 Odd interprimes divisible by 13.

39, 195, 351, 741, 897, 1313, 1443, 1599, 2379, 2405, 2535, 2613, 2691, 2847, 3055, 3081, 3627, 3705, 4641, 4771, 5031, 5577, 5655, 5889, 5967, 6045, 6201, 6409, 6825, 6877, 6903, 7007, 7033, 7605, 7943, 8437, 8541, 8931, 8957, 9009, 9035, 9321, 9607

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)

Mathematica

Do[If[OddQ[(Prime[n + 1] + Prime[n])/2] && Mod[(Prime[n + 1] + Prime[n])/2, 13] == 0, Print[(Prime[n + 1] + Prime[n])/2]], {n, 1, 3000}] (*Artur Jasinski*)
Select[(Total/@Partition[Prime[Range[1200]], 2, 1])/2, OddQ[#]&&Mod[#, 13] == 0&] (* Harvey P. Dale, May 23 2019 *)

Crossrefs

Cf. A072569, A072572, A072573, A126228, A126229, A126230, A124620, A126231, A124622, A126233.

Sequence in context: A258095 A193228 A243578 * A290071 A221797 A068975

Adjacent sequences: A124616 A124617 A124618 * A124620 A124621 A124622

Keyword

nonn

Author

Artur Jasinski, Dec 21 2006

Extensions

Extended by Ray Chandler, Jan 09 2007

Status

approved