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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A046392号 有两个完全不同的素因子的回文。
6, 22, 33, 55, 77, 111, 141, 161, 202, 262, 303, 323, 393, 454, 505, 515, 535, 545, 565, 626, 707, 717, 737, 767, 818, 838, 878, 898, 939, 949, 959, 979, 989, 1111, 1441, 1661, 1991, 3113, 3223, 3443, 3883, 7117, 7447, 7997, 9119, 9229, 9449, 10001 (列表图表参考历史文本内部格式)
抵消
1,1
链接
罗伯特·伊斯雷尔,n=1..10000时的n,a(n)表
MAPLE公司
revdigs:=proc(n)局部L,i;
五十: =换算(n,基数,10);
加(L[-i]*10^(i-1),i=1..nos(L))
结束进程:
f: =程序(n)局部f;
F: =系数(n)[2];
如果nops(F)=2且F[1,2]=1且F[2,2]=1,则n fi
结束进程:
N: =5:#表示最多N位数的术语。
结果:=6:
对于从2到N的d do
如果d::即使如此
m: =d/2;
Res:=Res,seq(f(n*10^m+revdigs(n)),n=10^(m-1)。。10平方米-1);
其他的
m: =(d-1)/2;
Res:=Res,seq(seq(f(n*10^(m+1)+y*10^m+revdigs(n)),y=0..9),n=10^(m-1)。。10平方米-1);
fi(菲涅耳)
日期:
研究#罗伯特·伊斯雷尔2020年3月24日
数学
pdpfQ[n_]:=模块[{idn=IntegerDigits[n]},idn==Reverse[idn]&&PrimeNu[n]==PrimeOmega[n]==2];选择[范围[11000],pdpfQ](*哈维·P·戴尔2012年12月16日*)
黄体脂酮素
(Python)
来自sympy导入因子
来自itertools导入产品
def pals(d,base=10):#所有d位回文
digits=“”.join(str(i)代表范围(基数)中的i)
对于产品中的p(数字,重复=d//2):
如果d>1且p[0]==“0”:继续
left=“”.join(p);右=左[::-1]
对于[[“”]中的mid,数字][d%2]:生成int(左+中+右)
定义ok(pal):f=因子(pal;返回len(f)==2和sum(f.values())==2中
打印(列表(过滤器(ok,(p代表范围(1,5)中的d,p代表pals(d),如果ok(p))))#迈克尔·布拉尼基2021年6月22日
交叉参考
囊性纤维变性。A046328美元,A046408美元.
关键词
非n,基础
作者
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年4月19日08:08。包含371782个序列。(在oeis4上运行。)