OFFSET
1,1
EXAMPLE
313133 is prime and of the form 3nn3 for n=13.
3100010003 is prime and of the form 3nn3 for n=1000.
MATHEMATICA
mn[n_]:=Module[{idn=IntegerDigits[n]}, FromDigits[Join[{3}, idn, idn, {3}]]]; Select[ mn/@ Range[ 1100], PrimeQ] (* Harvey P. Dale, Feb 04 2011 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Mark Hudson (mrmarkhudson(AT)hotmail.com), Jan 13 2005
STATUS
approved