%I #22 Sep 03 2019 03:27:59
%S 8,12,18,24,36,42,48,66,78,84,102,108,132,144,162,168,186,228,234,246,
%T 276,288,312,342,354,378,384,414,426,438,444,462,504,552,582,612,636,
%U 648,678,696,714,738,756,792,816,834,858,882,924,942,972
%N Numbers n such that n + 5 and n - 5 are both prime.
%H Daniel Starodubtsev, <a href="/A087696/b087696.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[5,1000],AllTrue[#+{5,-5},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Dec 08 2014 *)
%o (PARI) isok(n) = isprime(n-5) && isprime(n+5); \\ _Michel Marcus_, Sep 02 2019
%Y Cf. A014574, A087678-A087683, A087695-A087697, A088765.
%K easy,nonn
%O 1,1
%A _Zak Seidov_, Sep 27 2003
|