编辑
提出
T.D.Noe，<a href=“/A005479号/b005479.txt“>n表，n=1..28时为a（n）</a>
经核准的
T.D.Noe，<a href=“/A048895号/b048895_1.txt“>n表，n=1..468时为a（n）</a> (条款 < 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}，如果[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（主要）[范围t吨 = {}; nn个 = 6; 做[PrimePi公司第页 = 10^n个; While期间[第页 < 2*10^nn个]]n个, 第页 = 下一代Prime[第页], ; 如果[fQ公司[第页], 附加到[t吨, 第页]]], {n个, nn个}] ; t吨 (*T.D.诺伊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[范围[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日*）
