OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
select(t -> isprime(t+7) and isprime(t-7), [seq(i, i=8..1000, 2)]); # Robert Israel, Jul 22 2018
MATHEMATICA
Rest[Select[Range[1000], PrimeQ[# - 7] && PrimeQ[# + 7] &]] (* Vincenzo Librandi, Jul 23 2018 *)
PROG
(PARI) isok(n) = isprime(n-7) && isprime(n+7); \\ Michel Marcus, Jul 23 2018
(Magma) [n: n in [5..1000] | IsPrime(n-7) and IsPrime(n+7)]; // Vincenzo Librandi, Jul 23 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Zak Seidov, Sep 27 2003
STATUS
approved