A060231 Smaller of twin primes whose middle term is a multiple of A002110(5)=2310.

2309, 9239, 11549, 25409, 34649, 43889, 55439, 78539, 92399, 110879, 117809, 133979, 152459, 168629, 180179, 224069, 226379, 230999, 244859, 251789, 267959, 270269, 284129, 297989, 300299, 309539, 314159, 316469, 330329, 376529, 390389

Offset: 1

Author

Labos Elemer, Mar 21 2001

Keywords

• nonn

Comments

Number of terms less than 10^k: 0, 0, 0, 0, 2, 9, 66, 422, 3255, ... - Muniru A Asiru, Jan 29 2018

Examples

			For the pair {9239,9241} (9239+9241)/2 = 4*2310.
		

Links

• Muniru A Asiru, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A001359, A002110, A060229, A060230.

Programs

GAP

P:=Filtered([1..10^5], IsPrime);;
P1:=List(Filtered(Filtered(List([1..Length(P)-1], n -> [P[n],P[n+1]]),i -> i[2]-i[1] = 2), j -> (j[1]+j[2]) mod 2310 = 0), k -> k[1]); # Muniru A Asiru, Jan 29 2018

Maple

select(n->isprime(n) and isprime(n+2), [seq(2310*k-1, k=1..10^3)]);  # Muniru A Asiru, Jan 29 2018

Mathematica

Select[2310*Range[200],And@@PrimeQ[#+{1,-1}]&]-1 (* Harvey P. Dale, Aug 23 2013 *)

PARI

is(n)=(n+1)%2310==0 && isprime(n+2) && isprime(n) \\ Charles R Greathouse IV, Jan 30 2018

Extensions

Minor edits by Ray Chandler, Apr 02 2009