编辑
提出
T.D.Noe，<a href=“/A005479号/b005479.txt“>n表，n=1..28时为a（n）</a>
T.D.Noe，<a href=“/A005479号/b005479.txt“>n，a（n）表，n=1..28</a>
已批准
T.D.Noe，<a href=“/A048895号/b048895_1.txt“>n表，n=1..468时为a（n）>> (条款<2*10^9)
upDown[0]=0；upDown[1]=1；upDown[6]=9；upDown[8]=8；upDown[9]=6；fQ[p_]：=模块[{revP，upDownP，revUpDownP}，如果[Intersection[{2，3，4，5，7}，Union[IntegerDigits[p]]]！={}，False，revP=FromDigits[Reverse[IntegerDigits[p]]]；upDownP=起始数字[upDown/@IntegerDigits[p]]；revUpDownP=FromDigits[Reverse[IntegerDigits[upDownP]]]；p！=版次p&&p！=upDownP&&p！=revUpDownP&&PrimeQ[revP]&&PrimeQ[upDownP]&&PrimeQ[revUpDownP]]]；nn个=7;t={}；nn=6；Do[p=10^n；While[p<2*10^n，p=NextPrime[p]；如果[fQ[p]，AppendTo[t，p]]]，{n，nn}]；t吨(*T.D.诺伊2014年4月21日*）
T.D.Noe，<a href=“/A048895号/b048895号_1.txt“>n表，n=1时为a（n）。。188468</a>
upDown[0]=0；upDown[1]=1；upDown[6]=9；upDown[8]=8；upDown[9]=6；fQ[p_]：=模块[｛revP，upDownP，revUpDownP｝，如果[交集[｛2，3，4，5，7｝，并集[整数位数[p]]]！={}，False，revP=FromDigits[Reverse[IntegerDigits[p]]]；upDownP=起始数字[upDown/@IntegerDigits[p]]；revUpDownP=FromDigits[Reverse[IntegerDigits[upDownP]]]；p！=版次p&&p！=upDownP&&p！=revUpDownP&&PrimeQ[revP]&&PrimeQ[upDownP]&&PrimeQ[revUpDownP]]]；nn=7;t吨＝｛｝；nn个=6;选择[Prime（主要）[范围做[PrimePi公司第页=10^n个;While期间[第页<2*10^nn个]]],n个,第页=NextPrime公司[第页];如果[fQ公司] (* _[第页],附加到[t吨,第页]]], {n个,nn个}];t吨(* _T.D.Noe_，2014年4月21日*）
所有条款都必须以一开头和结尾-T.D.诺伊2014年4月21日
T.D.Noe，<a href=“/A048895号/b048895.txt“>n表，n=1..188时为a（n）</a>
upDown[0]=0；upDown[1]=1；upDown[6]=9；upDown[8]=8；upDown[9]=6；fQ[p_]：=模块[{revP，upDownP，revUpDownP}，如果[Intersection[{2，3，4，5，7}，Union[IntegerDigits[p]]]！={}，False，revP=FromDigits[Reverse[IntegerDigits[p]]]；upDownP=起始数字[upDown/@IntegerDigits[p]]；revUpDownP=FromDigits[Reverse[IntegerDigits[upDownP]]]；p！=转速p&p！=upDownP&&p！=revUpDownP&&PrimeQ[revP]&&PrimeQ[upDownP]&&PrimeQ[revUpDownP]]]；nn=7；选择[Prime[Range[PrimePi[2*10^nn]]]，fQ](*T.D.诺伊2014年4月21日*）
1061, 1091, 1601, 1901, 10061, 10091, 16001, 19001, 106861, 109891, 168601, 198901, 1106881, 1109881, 1606081, 1806061, 1809091, 1886011, 1889011, 1909081, 10806881, 10809881, 11061811, 11091811, 11609681, 11698691,11816011,11819011,11906981
串参数[0]=0;串参数[1] =1;串参数[6] =9;串参数[8] =8;串参数[9] =6;fQ[p_]：=模块[{revP，upDownP，revUpDownP}，如果[Intersection[{2，3，4，5，7}，Union[IntegerDigits[p]]]！={}，False，revP=FromDigits[Reverse[IntegerDigits[p]]]；upDownP=起始数字[upDown/@IntegerDigits[p]]；revUpDownP=FromDigits[Reverse[IntegerDigits[upDownP]]]；p！=版次p&&p！=upDownP&&p！=revUpDownP&&PrimeQ[revP]&&PrimeQ[upDownP]&&PrimeQ[revUpDownP]]]；nn=7；选择[Prime[Range[PrimePi[10^nn]]，fQ](*T.D.诺伊2014年4月21日*）
倒置时产生其他埃米尔的埃米尔. [发件人_[_Lekraj Beedassy，2009年4月3日]
可逆素数的反转也是可逆素数. [发件人_[_Lekraj Beedassy_，2009年4月4日]
fQ[p_]：=模块[{revP，upDownP，revUpDownP}，如果[Intersection[{2，3，4，5，7}，Union[IntegerDigits[p]]]！={}，False，revP=FromDigits[Reverse[IntegerDigits[p]]]；upDownP=起始数字[upDown/@IntegerDigits[p]]；revUpDownP=FromDigits[Reverse[IntegerDigits[upDownP]]]；p！=版次p&&p！=upDownP&&p！=revUpDownP&&PrimeQ[revP]&&PrimeQ[upDownP]&&PrimeQ[revUpDownP]]]；nn=7；选择[Prime[Range[PrimePi[10^nn]]，fQ](*T.D.诺伊2014年4月21日*）
