%I #8 Jul 24 2012 17:14:59
%S 11,13,17,19,1117,1213,1217,1319,1511,1613,1619,1811,1913,111119,
%T 111211,111217,111317,111611,111913,111919,121013,121019,121313,
%U 121711,131011,131111,131113,131213,131311,131317,131413,131519,131611,131617
%N Primes arising in A036976.
%t Select[FromDigits[Join[{1},Riffle[IntegerDigits[#],1]]]&/@ Range[ 700],PrimeQ] (* _Harvey P. Dale_, Jul 24 2012 *)
%Y Cf. A036976.
%K nonn,base,easy
%O 1,1
%A _N. J. A. Sloane_.
%E More terms from _Erich Friedman_.