OFFSET
1,1
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[5, 1000], AllTrue[#+{5, -5}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Dec 08 2014 *)
PROG
(PARI) isok(n) = isprime(n-5) && isprime(n+5); \\ Michel Marcus, Sep 02 2019
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Sep 27 2003
STATUS
approved