|
%I #18 Sep 08 2022 08:45:12
%S 5,7,10,19,22,25,37,40,52,79,82,85,94,109,115,124,142,169,172,187,190,
%T 220,235,247,274,277,289,292,304,319,325,334,367,382,409,415,472,487,
%U 502,520,547,550,589,604,610,649,655,715,739,745,775,787,802,814,850
%N a(n) = (A087682(n)-1)/2.
%H Vincenzo Librandi, <a href="/A088768/b088768.txt">Table of n, a(n) for n = 1..5300</a>
%t Select[Range[6, 2000], PrimeQ[2 # + 7] && PrimeQ[2 # - 9] &] - 1 (* _Vincenzo Librandi_, May 20 2017 *)
%o (Magma) [(n-1)/2: n in [6..2000] |IsPrime(n+8) and IsPrime(n-8)]; // _Vincenzo Librandi_, May 20 2017
%Y Cf. A087682, A088762, A088764, A088766, A088770.
%K nonn
%O 1,1
%A _Ray Chandler_, Oct 26 2003
|
