|
%I #23 Sep 08 2022 08:45:11
%S 10,12,24,30,36,54,60,66,90,96,120,144,156,174,186,204,234,264,270,
%T 276,300,324,360,366,390,426,450,456,516,564,570,594,600,606,624,654,
%U 666,684,726,750,780,804,816,846,870,960,984,990
%N Numbers k such that k + 7 and k - 7 are both prime.
%H Robert Israel, <a href="/A087697/b087697.txt">Table of n, a(n) for n = 1..10000</a>
%p select(t -> isprime(t+7) and isprime(t-7), [seq(i,i=8..1000,2)]); # _Robert Israel_, Jul 22 2018
%t Rest[Select[Range[1000], PrimeQ[# - 7] && PrimeQ[# + 7] &]] (* _Vincenzo Librandi_, Jul 23 2018 *)
%o (PARI) isok(n) = isprime(n-7) && isprime(n+7); \\ _Michel Marcus_, Jul 23 2018
%o (Magma) [n: n in [5..1000] | IsPrime(n-7) and IsPrime(n+7)]; // _Vincenzo Librandi_, Jul 23 2018
%Y Cf. A014574, A087678, A087679, A087680, A087681, A087682, A087683, A087695, A087696, A088767.
%K nonn,easy
%O 1,1
%A _Zak Seidov_, Sep 27 2003
|
