OFFSET
1,1
EXAMPLE
101737 is a member as the number obtained by removing the first and the last digit 0173 is a prime and further removing the first and the last digit gives another prime 17.
MATHEMATICA
Select[Prime[Range[PrimePi[1000]+1, PrimePi[9999]]], PrimeQ[FromDigits[Rest[Most[IntegerDigits[#]]]]]&] (* Harvey P. Dale, Jan 04 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Apr 09 2002
EXTENSIONS
Corrected by T. D. Noe, Nov 01 2006
Corrected and extended by Harvey P. Dale, Jan 04 2011
STATUS
approved