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

 

标志


提示
(问候来自整数序列在线百科全书!)
A103402号 回文是p,因此pi(p)是回文素数。 5
3、4、5、6、11、33、555、878、5775、6116、919919、58633685、129707921、16958285961、867275572768、50166722766105、310439747934013、4384495885944834、5817988338897185 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

1,1

评论

来自扎克·塞多夫2005年2月2日。

大于12*16。-多诺万·约翰逊2009年12月3日

链接

n=1..19的n,a(n)表。

数学

NextPalindrome[n_u]:=Block[{l=Floor[Log[10,n]+1],idn=IntegerDigits[n]},如果[Union[idn]={9},则返回[n+2],如果[l<2,返回[n+1],如果[FromDigits[Reverse[Take[idn,Ceiling[l/2]]]FromDigits[Take[idn,Ceiling[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[IntegerDigits[idfhn]],Mod[l,2]]]]]]];

p=0;a={};Do[p=NextPalindrome[p];q=PrimePi[p];If[PrimeQ[q],r=IntegerDigits[q];如果[Reverse[r]==r,打印[{p,q}];AppendTo[a,p]]],{n,10^6}];a

palQ[n_u]:=Reverse[x=IntegerDigits[n]]==x;t={};Do[If[palQ[n]&&PrimeQ[x=PrimePi[n]]&&palQ[x],AppendTo[t,n]],{n,10^6}];t(*贾扬达·巴苏2013年6月24日)

交叉引用

囊性纤维变性。A046941号,A046942号,A103357号,A103358号,A103403号.

上下文顺序:A047425号 A048989号 A299299年*邮编:A154664 A191750型 A034448号

相邻序列:A103399号 A1034000 A103401号*A103403号 A103404号 A103405号

关键字

,基础,更多

作者

罗伯特·G·威尔逊五世2005年2月3日

扩展

a(15)来自多诺万·约翰逊2009年12月3日

a(16)-a(17)来自柴华武2019年9月4日

a(18)-a(19)来自乔瓦尼·雷斯塔2019年9月12日

状态

经核准的

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

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

上次修改日期:美国东部时间2020年9月27日22:36。包含337388个序列。(运行在oeis4上。)