登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


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

T.D.Noe修订

(另请参见T、 诺伊的维基页面)

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

显示条目1-10|旧的更改
A005479号 质数Lucas(参见。A000032号).
(历史;已发布版本)
#33岁通过T、 D.不2014年4月20日星期二东部时间22:00
状态

编辑

提出

#32个通过T、 D.不2014年4月22日星期二00:20:17
链接

T、 不,<a href=“/A005479号/b05479.txt“>n,a(n)表,n=1..28</a>

T、 不,<a href=“/A005479号/b05479.txt“>n,a(n)表,n=1..28</a>

#31个通过T、 D.不2014年4月22日星期二00:19:01
链接

T、 不,<a href=“/A005479号/b05479.txt“>n,a(n)表,n=1..28</a>

状态

经核准的

编辑

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

编辑

提出

#十五通过T、 D.不2014年4月22日星期二00:09:10
链接

T、 不,<a href=“/A048895号/b048895_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_U]:=模块[{revP,upDownP,revUpDownP},If[Intersection[{2,3,4,5,7},并集[IntegerDigits[p]]]!={},假,revP=FromDigits[Reverse[IntegerDigits[p]]];upDownP=FromDigits[upDown/@IntegerDigits[p]];revUpDownP=FromDigits[Reverse[IntegerDigits[upDownP]];p!=版次&&p!=上下移动&&p!=revUpDownP&&PrimeQ[revP]&&PrimeQ[upDownP]&&PrimeQ[revUpDownP]];nn公司=7;t={};nn=6;Do[p=10^n;而[p<2*10^n,p=nexttime[p];如果[fQ[p],则追加到[t,p]]],{n,nn}];t(*T、 D.不2014年4月21日*)

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

T、 不,<a href=“/A048895号/电话:b048895_1.txt“>n,a(n)的表格,n=1。。188468在</a>

数学

upDown[0]=0;upDown[1]=1;upDown[6]=9;upDown[8]=8;upDown[9]=6;fQ[p_U]:=模块[{revP,upDownP,revUpDownP},If[Intersection[{2,3,4,5,7},并集[IntegerDigits[p]]]!={},假,revP=FromDigits[Reverse[IntegerDigits[p]]];upDownP=FromDigits[upDown/@IntegerDigits[p]];revUpDownP=FromDigits[Reverse[IntegerDigits[upDownP]];p!=版次&&p!=上下移动&&p!=revUpDownP&&PrimeQ[revP]&&PrimeQ[upDownP]&&PrimeQ[revUpDownP]]];nn=7;t= {};nn公司=6;选择[质数[范围[普莱米皮p=10^n;同时[p<2*10个^nn公司]]],n,p=下一次[p];如果[定量] (* _[p],附加物[t,p]]], {n,nn公司}];t(* _T、 D.诺伊,2014年4月21日*)

#十三通过T、 D.不美国东部时间2014年4月21日星期一19:03:13
评论

所有术语必须以一开头和结尾。-T、 D.不2014年4月21日

链接

T、 不,<a href=“/A048895号/b048895.txt“>n,a(n)表,n=1..188</a>

数学

upDown[0]=0;upDown[1]=1;upDown[6]=9;upDown[8]=8;upDown[9]=6;fQ[p_U]:=模块[{revP,upDownP,revUpDownP},If[Intersection[{2,3,4,5,7},并集[IntegerDigits[p]]]!={},假,revP=FromDigits[Reverse[IntegerDigits[p]]];upDownP=FromDigits[upDown/@IntegerDigits[p]];revUpDownP=FromDigits[Reverse[IntegerDigits[upDownP]];p!=版次&&p!=上下移动&&p!=revUpDownP&&PrimeQ[revP]&&PrimeQ[upDownP]&&PrimeQ[revUpDownP]];nn=7;选择[Prime[Range[PrimePi][2*10^nn]]],fQ](*T、 D.不2014年4月21日*)

#十二通过T、 D.不2014年4月21日星期一16:55:30
数据

1061、1091、1601、1901、10061、10091、16001、19001、106861、109891、168601、198901、1106881、1109881、1606081、1806061、1809091、1886011、1889011、1909081、10806881、10809881、11061811109181116096811169811,11816011,11819011,11906981

#十一通过T、 D.不美国东部时间2014年4月21日星期一16:52:37
数学

串参数[0] =0;串参数[1] =1;串参数[6] =9;串参数[8] =8;串参数[9] =6;fQ[p\]:=模块[{revP,upDownP,revUpDownP},If[Intersection[{2,3,4,5,7},并集[IntegerDigits[p]]]]!={},假,revP=FromDigits[Reverse[IntegerDigits[p]]];upDownP=FromDigits[upDown/@IntegerDigits[p]];revUpDownP=FromDigits[Reverse[IntegerDigits[upDownP]];p!=版次&&p!向下(&&p)!=revUpDownP&&PrimeQ[revP]&&PrimeQ[upDownP]&&PrimeQ[revUpDownP]];nn=7;选择[Prime[Range[PrimePi[10^nn]]],fQ](*T、 D.不2014年4月21日*)

#10个通过T、 D.不美国东部时间2014年4月21日星期一16:51:39
评论

倒置时产生其他酋长的酋长. [_. [_Lekraj Beedassy,2009年4月3日]

可逆素数,其可逆素数也是可逆素数. [_. [_Lekraj Beedassy,2009年4月4日]

数学

fQ[p\]:=模块[{revP,upDownP,revUpDownP},If[Intersection[{2,3,4,5,7},并集[IntegerDigits[p]]]]!{[FromDigits/[downDigits][FromDigits/[downDigits];整型数字=倒数]!=版次&&p!=上下移动&&p!=revUpDownP&&PrimeQ[revP]&&PrimeQ[upDownP]&&PrimeQ[revUpDownP]];nn=7;选择[Prime[Range[PrimePi[10^nn]]],fQ](*T、 D.不2014年4月21日*)

状态

经核准的

编辑

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

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

上次修改日期:美国东部时间2020年8月12日09:17。包含336438个序列。(运行在oeis4上。)