A178546 Emirps in which n first occurs as a substring.

107, 13, 1021, 13, 149, 157, 167, 17, 389, 79, 107, 113, 1201, 13, 149, 157, 167, 17, 1181, 199, 1201, 1021, 1223, 1223, 1249, 1259, 12269, 1279, 1283, 1229, 1301, 31, 1321, 337, 347, 359, 3613, 37, 389, 739, 1409, 941, 1429, 743, 11447, 1453, 3463, 347, 1487, 149, 7507

Offset: 0

Author

Lekraj Beedassy, May 29 2010

Keywords

• nonn
• base

Links

• Alois P. Heinz, Table of n, a(n) for n = 0..2000

Crossrefs

Cf. A006567, A062584.

Programs

Mathematica

emrpQ[n_]:=Module[{idn=IntegerDigits[n],ridn},ridn=Reverse[idn]; idn!=ridn && PrimeQ[ FromDigits[ ridn]]]; nss[n_]:= Module[{idn=IntegerDigits[n]}, Select[e,MemberQ[Partition[ IntegerDigits[#],Length[idn],1],idn]&,1]]; With[{e=Select[Prime[Range[50000]],emrpQ]},Flatten[ Join[{107}, Table[ nss[i], {i,50}]]]] (* Harvey P. Dale, Oct 08 2012 *)

Extensions

Corrected and extended by Harvey P. Dale, Oct 08 2012