OFFSET
1,1
EXAMPLE
757 is a member as 37573 is also a prime.
MATHEMATICA
s23Q[n_]:=Module[{idn=IntegerDigits[n]}, idn==Reverse[idn]&&PrimeQ[ FromDigits[Join[{3}, idn, {3}]]]]; Select[Prime[Range[10000]], s23Q] (* Harvey P. Dale, May 07 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Sep 28 2003
EXTENSIONS
More terms from David Wasserman, Jul 28 2005
STATUS
approved