login
a(n) = A087678(n)/2.
5

%I #12 Sep 08 2022 08:45:12

%S 7,10,11,14,16,19,25,26,31,35,40,44,46,49,59,61,70,74,79,86,91,94,95,

%T 101,110,116,121,124,130,136,151,161,170,179,194,196,205,215,220,224,

%U 226,229,235,250,256,266,289,304,305,311,325,326,334,341,346,350,355

%N a(n) = A087678(n)/2.

%H Vincenzo Librandi, <a href="/A088769/b088769.txt">Table of n, a(n) for n = 1..4350</a>

%t Select[Range[5, 2000], PrimeQ[# + 9] && PrimeQ[# - 9] &] / 2 (* _Vincenzo Librandi_, May 21 2017 *)

%o (Magma) [n/2: n in [5..1500] |IsPrime(n+9) and IsPrime(n-9)]; // _Vincenzo Librandi_, May 22 2017

%Y Cf. A087678, A040040, A088763, A088765, A088767.

%K nonn

%O 1,1

%A _Ray Chandler_, Oct 26 2003