A103402-编号：A103402-OEIS

搜索： a103402-编号：a103402

显示找到的5个结果中的1-5个。

第页1

排序：关联|参考文献|数|被改进的|创建格式：长的|短的|数据

A046942号

数字n使得n和素数（n）都是回文。

+10
7

1, 2, 3, 4, 5, 8114118, 535252535, 4025062605204 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`曾用名：出现在A046941号.` `此外A002113号和A075807号. -伊凡·内雷廷2016年6月2日`
	链接	`n=1..8时的n，a（n）表。` `埃里克·魏斯坦的数学世界，回文素`
	数学	`NextPalindrome[n_]：=块[{l=Floor[Log[10，n]+1]，idn=IntegerDigits[n]}，如果[Union[idn]=={9}，Return[2]，如果[l<2，Return[n+1]，如果[FromDigits[Reverse[Take[idn，Ceiling[l/2]]]]]FromDiges[Take[idn，-Cilip[l/2]]，FromDigs[Join[Take[2，Ceiling[l/2]]，Reverse[Take[id，Floor[l/2]]]]，idfhn=FromDigits[Take[idn，Ceiling[l/2]]]+1；idp=FromDigits[Join[InterDigits[idfhn]，Drop[Reverse[InterDigits[idfhn]]，Mod[l，2]]]]]]]；` `p=0；Do[p=下一个回文[p]；While[！PrimeQ[p]，p=下一个回文[p]]；q=整数位数[PrimePi[p]]；如果[Reverse[q]=q，则打印[{p，FromDigits[q]}]]，{n，10^4}](罗伯特·威尔逊v2005年2月3日）`
	交叉参考	`等于pi(A046941号).` `囊性纤维变性。A046941号,A103357号,A103358号,A103402号,A103403号.`
	关键字	`美好的,非n,基础`
	作者	`卡洛斯·里维拉`
	扩展	`a（7）来自乔瓦尼·雷斯塔2003年5月14日` `新名称和偏移量伊凡·内雷廷2016年6月2日` `a（8）来自乔瓦尼·雷斯塔2019年8月10日`
	状态	`经核准的`

A103357号

数字n，使n和pi（n）(A000720号)是回文。

+10
7

1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 22, 33, 262, 323, 393, 525, 535, 555, 666, 818, 878, 949, 2002, 3773, 5775, 6116, 13031, 19591, 39093, 41414, 47374, 59295, 63236, 81918, 94549, 95759, 252252, 394493, 594495, 662266, 674476, 686686, 698896, 764467 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	链接	`乔瓦尼·雷斯塔，n=1..196时的n，a（n）表（条款<10^16）`
	配方奶粉	`a（n）=P_A103358号（n） ●●●●。`
	数学	`NextPalindrome[n_]：=块[{l=Floor[Log[10，n]+1]，idn=IntegerDigits[n]}，如果[Union[idn]=={9}，Return[2]，如果[l<2，Return[n+1]，如果[FromDigits[Reverse[Take[idn，Ceiling[l/2]]]]]FromDiges[Take[idn，-Cilip[l/2]]，FromDigs[Join[Take[2，Ceiling[l/2]]，Reverse[Take[id，Floor[l/2]]]]，idfhn=FromDigits[Take[idn，Ceiling[l/2]]]+1；idp=FromDigits[Join[IntegerDigits[idfhn]，Drop[Reverse[Integer Digits[idfhn]]，Mod[l，2]]]]]；` `p=0；a={}；Do[p=下一个回文[p]；q=整数位数[PrimePi[p]]；如果[Reverse[q]==q，则打印[{p，FromDigits[q]}]；附加到[a，p]]，{n，10^4}]；一个(罗伯特·威尔逊v，2005年2月3日）`
	交叉参考	`中对应的回文pi（n）A103358号.` `囊性纤维变性。A046941美元,A046942号,A103358号,A103402号,A103403号.`
	关键字	`基础,非n`
	作者	`扎克·塞多夫2005年2月2日`
	扩展	`更多术语来自罗伯特·威尔逊v2005年2月3日`
	状态	`经核准的`

A046941号

指数n也是回文的回文素数。

+10
6

2, 3, 5, 7, 11, 143787341, 11853735811, 126537757735621 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,1`
	链接	`n=1..8时的n，a（n）表。` `Chris K.Caldwell和G.L.Honaker，Jr。，143787341` `卡尔·波梅兰斯，关于加法和乘法，我们还不知道什么《Trjitzinsky演讲1》，伊利诺伊州U.U.Urbana-Champaign，2018年11月27日。参见幻灯片22和24。` `埃里克·魏斯坦的数学世界，回文素数。`
	配方奶粉	`a（n）=质数(A046942号（n））。`
	数学	`NextPalindrome[n_]：=块[{l=Floor[Log[10，n]+1]，idn=IntegerDigits[n]}，如果[Union[idn]=={9}，Return[2]，如果[l<2，Return[n+1]，如果[FromDigits[Reverse[Take[idn，Ceiling[l/2]]]]]FromDiges[Take[idn，-Cilip[l/2]]，FromDigs[Join[Take[2，Ceiling[l/2]]，Reverse[Take[id，Floor[l/2]]]]，idfhn=FromDigits[Take[idn，Ceiling[l/2]]]+1；idp=FromDigits[Join[IntegerDigits[idfhn]，Drop[Reverse[Integer Digits[idfhn]]，Mod[l，2]]]]]；` `p=0；Do[p=下一个回文[p]；While[！PrimeQ[p]，p=下一个回文[p]]；q=整数位数[PrimePi[p]]；如果[Reverse[q]==q，打印[{p，FromDigits[q]}]]，{n，10^4}](罗伯特·威尔逊v2005年2月3日）` `palQ[n_]：=反向[x=整数位数[n]]==x；t={}；Do[p=素数[i]；如果[palQ[i]&&palQ[p]，附加到[t，p]]，{i，910^6}]；t吨(贾扬达·巴苏2013年6月23日*）`
	黄体脂酮素	`（PARI）ispal（n）=我的（d=数字（n））；d==Vecrev（d）；` `isok（p）=素数\\米歇尔·马库斯，2019年1月27日`
	交叉参考	`囊性纤维变性。A046942号,A103357号,A103358号,A103402号,103年3月.`
	关键字	`非n,基础,更多`
	作者	`卡洛斯·里维拉`
	扩展	`a（7）来自乔瓦尼·雷斯塔2003年5月14日` `a（8）来自乔瓦尼·雷斯塔2019年8月10日`
	状态	`经核准的`

A103358号

回文q源自回文p，因此pi（p）=q。

+10
6

0, 1, 2, 2, 3, 3, 4, 4, 4, 5, 8, 11, 55, 66, 77, 99, 99, 101, 121, 141, 151, 161, 303, 525, 757, 797, 1551, 2222, 4114, 4334, 4884, 5995, 6336, 8008, 9119, 9229, 22222, 33433, 48684, 53735, 54645, 55555, 56465, 61316, 64046, 72027, 72727, 84548, 89998 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,3`
	链接	`乔瓦尼·雷斯塔，n=1..196时的n，a（n）表`
	数学	`下一个回文符号[n]：=Block[｛l=Floor[Log[10，n]+1]，idn=IntegerDigits[n]}，If[并集[idn]=｛9｝，Return[n+2]，If[l<2，Return[n+1]，If[FromDigits[Reverse[Take[idn，Ceiling[l/2]]]FromDigits[Take[idn，-Siling[l/2]]]，FromDigits[Join[Take[idn，Ceiling[l/2]]，Reverse[Take[idn，Floor[l/2]]]，idfhn=FromDigits[Take[idn，Ceiling[l/2]]]+1；idp=FromDigits[Join[IntegerDigits[idfhn]，Drop[Reverse[Integer Digits[idfhn]]，Mod[l，2]]]]]；` `p=0；a={}；Do[p=下一个回文[p]；q=整数位数[PrimePi[p]]；如果[Reverse[q]==q，则打印[{p，FromDigits[q]}]；附加到[a，p]]，{n，10^4}]；PrimePi[a]系列(罗伯特·威尔逊v2005年2月3日）`
	交叉参考	`等于pi(A103357号).` `囊性纤维变性。A046941号,A046942号,A103357号,A103402号,A103403号.`
	关键字	`基础,非n`
	作者	`扎克·塞多夫2005年2月2日`
	扩展	`更多术语来自罗伯特·威尔逊v2005年2月3日`
	状态	`经核准的`

A103403号

回文素数q由回文p派生而来，使得pi（p）=q。

+10
5

2, 2, 3, 3, 5, 11, 101, 151, 757, 797, 72727, 3485843, 7362637, 753535357, 32792329723, 1644209024461, 9600458540069, 125319848913521, 164957666759461 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,1`
	评论	`根据来自的建议扎克·塞多夫2005年2月2日。` `a（16）>pi（32*10^12）-多诺万·约翰逊2009年12月3日`
	链接	`n=1..19时的n，a（n）表。`
	数学	`NextPalindrome[n_]：=块[{l=Floor[Log[10，n]+1]，idn=IntegerDigits[n]}，如果[Union[idn]=={9}，Return[2]，如果[l<2，Return[n+1]，如果[FromDigits[Reverse[Take[idn，Ceiling[l/2]]]]]FromDiges[Take[idn，-Cilip[l/2]]，FromDigs[Join[Take[2，Ceiling[l/2]]，Reverse[Take[id，Floor[l/2]]]]，idfhn=FromDigits[Take[idn，天花板[l/2]]+1；idp=FromDigits[Join[IntegerDigits[idfhn]，Drop[Reverse[Integer Digits[idfhn]]，Mod[l，2]]]]]；` `p=0；a={}；Do[p=下一个回文[p]；q=PrimePi[p]；如果[PrimeQ[q]，r=整数位数[q]；如果[Reverse[r]==r，则打印[{p，q}]；附加到[a，q]]]，{n，10^6}]；一` `palQ[n_]：=反向[x=整数位数[n]]==x；t={}；Do[If[palQ[n]&&PrimeQ[y=PrimePi[n]]&&palQ[y]，AppendTo[t，y]]，{n，10^6}]；t吨(贾扬达·巴苏2013年6月24日）`
	交叉参考	`囊性纤维变性。A046941号,A046942号,A103357号,A103358号,A103402号.`
	关键字	`非n,基础,更多`
	作者	`罗伯特·威尔逊v2005年2月3日`
	扩展	`a（15）来自多诺万·约翰逊2009年12月3日` `a（16）-a（17）来自柴华武2019年9月4日` `a（18）-a（19）来自乔瓦尼·雷斯塔2019年9月12日`
	状态	`经核准的`

第页1

搜索在0.008秒内完成