OFFSET
1,2
MATHEMATICA
Select[Range[1, 501, 2], PrimeQ[FromDigits[Join[IntegerDigits[#], IntegerDigits[ #+6]]]]&] (* Harvey P. Dale, Nov 17 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, May 15 1998
STATUS
approved