%I#20 2023年9月6日19:05:55

%S 107,131021,13149157167,17389,791071131201,13149157167.17，

%电话：118119912011021123122312491259122691279128312291301,31，

%电话：13213373473593613,3738973914099411429743114471453346334714871497507

%N个Emirps，其中N作为子字符串首次出现。

%H Alois P.Heinz，n的表格，n=0..2000的a（n）</a>

%t emrpQ[n_]：=模块[｛idn=整数位数[n]，ridn｝，ridn=反向[idn]；身份证号码=ridn&&PrimeQ[源数字[ridn]]；nss[n_]：=模块[{idn=整数位数[n]}，选择[e，MemberQ[Partition[IntegerDigits[#]，Length[idn]，1]，idn]&，1]]；使用[{e=Select[Prime[Range[50000]]，emrpQ]}，Flatten[Join[{107}，Table[nss[i]，{i，50}]]（*哈维·P·戴尔，2012年10月8日*）

%Y参考A006567、A062584。

%K nonn，基础

%0、1

%A _Lekraj Beedassy，2010年5月29日

%E由Harvey P.Dale_修订和扩展，2012年10月8日