A088768 a(n) = (A087682(n)-1)/2.

5, 7, 10, 19, 22, 25, 37, 40, 52, 79, 82, 85, 94, 109, 115, 124, 142, 169, 172, 187, 190, 220, 235, 247, 274, 277, 289, 292, 304, 319, 325, 334, 367, 382, 409, 415, 472, 487, 502, 520, 547, 550, 589, 604, 610, 649, 655, 715, 739, 745, 775, 787, 802, 814, 850

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..5300

Mathematica

Select[Range[6, 2000], PrimeQ[2 # + 7] && PrimeQ[2 # - 9] &] - 1 (* Vincenzo Librandi, May 20 2017 *)

Prog

(Magma) [(n-1)/2: n in [6..2000] |IsPrime(n+8) and IsPrime(n-8)]; // Vincenzo Librandi, May 20 2017

Crossrefs

Cf. A087682, A088762, A088764, A088766, A088770.

Sequence in context: A113194 A356103 A339211 * A131998 A141443 A215660

Adjacent sequences: A088765 A088766 A088767 * A088769 A088770 A088771

Keyword

nonn

Author

Ray Chandler, Oct 26 2003

Status

approved