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
Muniru A Asiru, Table of n, a(n) for n = 1..1000
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
(PARI) is(n)=(n+1)%2310==0 && isprime(n+2) && isprime(n) \\ Charles R Greathouse IV, Jan 30 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Mar 21 2001
EXTENSIONS
Minor edits by Ray Chandler, Apr 02 2009
STATUS
approved