|
|
A060231
|
|
Smaller of twin primes whose middle term is a multiple of A002110(5)=2310.
|
|
5
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Number of terms less than 10^k: 0, 0, 0, 0, 2, 9, 66, 422, 3255, ... - Muniru A Asiru, Jan 29 2018
|
|
LINKS
|
|
|
EXAMPLE
|
For the pair {9239,9241} (9239+9241)/2 = 4*2310.
|
|
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 *)
|
|
PROG
|
(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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|