登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)

T.D.Noe修订

(另请参见T.D.Noe的维基页面)

(带下划线的文本是附加;删除线文本是删除.)

显示条目1-10|较旧的更改
A005479号 素数卢卡斯数(参见。A000032号).
(历史;已发布版本)
#33通过T.D.诺伊2014年4月22日星期二00:20:22 EDT
状态

编辑

提出

#32通过T.D.诺伊2014年4月22日星期二00:20:17 EDT
链接

T.D.Noe,<a href=“/A005479号/b005479.txt“>n表,n=1..28时为a(n)</a>

T.D.Noe,<a href=“/A005479号/b005479.txt“>n表,n=1..28时为a(n)</a>

#31通过T.D.诺伊2014年4月22日星期二00:19:01 EDT
链接

T.D.Noe,<a href=“/A005479号/b005479.txt“>n表,n=1..28时为a(n)</a>

状态

经核准的

编辑

A048895号 污点:当倒置时产生不同素数的素数,两者都是另外两个不同的素数。
(历史;已发布版本)
#16通过T.D.诺伊2014年4月22日星期二00:09:32 EDT
状态

编辑

提出

#15通过T.D.诺伊2014年4月22日星期二00:09:10 EDT
链接

T.D.Noe,<a href=“/A048895号/b0488895_1.txt“>n,a(n)的表,n=1..468</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[反向[InterDigits[p]]];upDownP=起始数字[upDown/@IntegerDigits[p]];revUpDownP=FromDigits[Reverse[IntegerDigits[upDownP]]];p!=版次p&&p!=upDownP&&p!=revUpDownP&&PrimeQ[revP]&&PrimeQ[upDownP]&&PrimeQ[revUpDownP]]];神经网络=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日*)

#14通过T.D.诺伊2014年4月22日星期二00:07:49 EDT
链接

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;t吨= {};神经网络=6;选择[Prime(主要)[范围[PrimePi公司第页=10^n个;While期间[第页<2*10^神经网络]]],n个,第页=NextPrime公司[第页];如果[fQ公司] (* _[第页],附加到[t吨,第页]]], {n个,神经网络}];t吨(* _T.D.Noe_,2014年4月21日*)

#13通过T.D.诺伊2014年4月21日星期一19:03:13 EDT
评论

所有术语都必须以一开头和结尾-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;上下[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日*)

#12通过T.D.诺伊2014年4月21日星期一16:55:30 EDT
数据

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

#11通过T.D.诺伊2014年4月21日星期一16:52:37 EDT
数学

串参数[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日*)

#10通过T.D.诺伊2014年4月21日星期一16:51:39 EDT
评论

倒置时产生其他埃米尔的埃米尔. [发件人_. [_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日*)

状态

经核准的

编辑

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|转换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年6月21日23:34。包含373560个序列。(在oeis4上运行。)