|
|
|
|
17、71、79、97、107、167、179、701、709、761、769、907、967、971、1097、1471、1487、1741、1789、1847、1867、1879、1979、7177、7187、7481、7649、7681、7687、7699、7717、7817、7841、7867、7879、7901、7949、9467、9479、9497、9679、9749、9769、9781、9787
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
数学
|
okQ[n_]:=模块[{idn=整数位数[n],rev},rev=反向[idn];身份证号码=rev&&Union[Select[idn,PrimeQ]]=={7}&&PrimeQ[FromDigits[rev]]];选择[Prime[Range[1300]],okQ](*哈维·P·戴尔2011年7月18日*)
|
|
交叉参考
|
|
|
关键字
|
基础,非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|