%I#19 2015年12月7日01:04:28
%S 3,1,6,0,21,0,95,0445,02181,011496,059723,0315949,01718494,0,
%电话9403664,0
%N以6为底的N位回文素数的总数。
%每个具有偶数位数的回文都可以被11整除(以6为基数),因此是复合的(而不是质数)。因此,只有一个具有偶数位数的回文素数。
%以6为底的回文素数>3必须以数字1或数字5开头(和结尾)_Chai Wah Wu_,2015年12月3日
%H Eric Weisstein:<a href=“http://mathworld.wolfram.com/PalindromicPrime.html“>回文质数</a>。
%e a(2)=1,因为11(6)=7(10),是唯一两位数的回文素数_Michel Marcus_,2014年10月11日
%t长度@Select[Prime@Range[PrimePi[6^#+1],PrimePi[6^(#+1)]],#==反向@#&@整数位数[#,6]&]&/@Range[0,8](*_Michael De Vlieger_,2015年12月6日*)
%o(PARI)a(nd,b=6)={if(nd>2)&&(nd%2)==0),return(0));nb=0;对于素数(p=b^(nd-1),b^nd-1,d=数字(p,b);if(Pol(d)==Polrev(d),nb++););nb;}\\_Michel Marcus_,2014年10月11日
%Y参考A029974,A117701。
%K nonn,基础,更多
%O 1,1号机组
%A _马丁·雷纳,2006年4月15日
%E a(11)-a(12),来自_Michel Marcus_,2014年10月11日
%E a(13)-a(22),来自Chai Wah Wu,2015年12月3日
|