OFFSET
1,1
EXAMPLE
17 belongs to this sequence for 171517 as well as 171917 are primes.
MATHEMATICA
d[n_] := IntegerDigits[n]; Select[Range[2410], And@@PrimeQ[FromDigits/@{Join[d[#], d[#-2], d[#]], Join[d[#], d[#+2], d[#]]}] &] (* Jayanta Basu, May 20 2013 *)
CROSSREFS
KEYWORD
base,hard,nonn
AUTHOR
Amarnath Murthy, Mar 02 2002
EXTENSIONS
More terms from Sascha Kurz, Mar 26 2002
STATUS
approved