OFFSET
1,1
MATHEMATICA
Select[FromDigits[Join[{1}, Riffle[IntegerDigits[#], 1]]]&/@ Range[ 700], PrimeQ] (* Harvey P. Dale, Jul 24 2012 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
EXTENSIONS
More terms from Erich Friedman.
STATUS
approved