OFFSET
1,1
PROG
(PARI) for(i=1, 9999, isprime(eval(p=Str(prime(i), prime(i+1), prime(i+2)))) & isprime(eval(concat(vecextract(Vec(p), "-1..1"))))& print1(p, ", "))
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jonathan vos Post and M. F. Hasler, Nov 10 2009
STATUS
approved