A046452-OEIS公司

A046452美元

三个素数因子的乘积，其串联是一个回文。

8, 27, 125, 343, 429, 507, 795, 1309, 1331, 1533, 1547, 1587, 2023, 2097, 3633, 3729, 3897, 5289, 5295, 5547, 6597, 7833, 8029, 8427, 9583, 9795, 12207, 12795, 13489, 13573, 14133, 14147, 14295, 15463, 15549, 15987, 16233, 17295, 20667, 22139, 28273, 28609, 28847, 28951 (列表;图表;参考文献;听;历史;文本;内部格式)

	抵消	`1,1`
	评论	`序列是A046447号和A014612号没有初始期限-查尔斯·格里特豪斯四世2010年4月23日` `除了a（1）以外，所有术语都是奇数。除a（3）外，5除a（n）当且仅当15除a（n）-查尔斯·格里特豪斯四世，2013年1月4日`
	链接	`罗伯特·伊斯雷尔，n=1..2292时的n，a（n）表`
	例子	`14133=37673->37673为回文。`
	MAPLE公司	`N最大值：=10000；#得到所有a（n）<=Nmax` `R： ={8}：` `因为我从2开始做` `a： =ithprime（i）；` `如果a^3>Nmax，则断开末端；` `m： =长度（a）；tm:=10^m；` `al：=换算（a，基数，10）；` `ar:=加（10^（m-k）al[k]，k=1..m）；` `对于我做的j` `b： =ithprime（j）；` `如果ab^2>Nmax，则断开末端；` `bl:=转换（b，基数，10）；` `k0:=天花板（（b-ar）/tm）；` `从k0到k do` `c： =ar+ktm；` `如果abc>Nmax，则断开端；` `如果不是质数（c），则下一个端点为：；` `五十： =[op（转换（c，基数，10）），op（bl），op；` `如果ListTools:反向（L）=L，则` `R： =R联合{ab*c}` `结束条件：；` `结束do` `结束do` `结束do：` `R#罗伯特·伊斯雷尔2013年1月5日`
	数学	`pfpQ[n_]：=模块[{c=扁平[IntegerDigits/@表格[#[[1]]，{#[2]]}]&/@FactorInteger[n]]}，c==反向[c]]；选择[范围[30000]，PrimeOmega[#]==3&&pfpQ[#]&&](哈维·P·戴尔2013年1月5日）`
	黄体脂酮素	`（PARI）ispal（n）=n=数字（n）；对于（i=1，#n\2，if（n[i]！=n[#n+1-i]，return（0））；1` `列表（lim）=我的（v=列表（[8]），t）；对于素数（p=3，lim\9，对于素数，q=3，min（lim\（3p），p），t=pq；对于素数（r=3，min（lim\t，q），if（ispal（eval（Str（r，q，p））），listput（v，t*r）））；向量排序（Vec（v））\\查尔斯·格里特豪斯四世，2013年1月4日`
	交叉参考	`参见。A046447号.` `上下文中的序列：A062838号 A240859型 A277047型A030078型 A051751号 A133042号` `相邻序列：A046449号 A046450型 A046451号A046453号 A046454号 A046455号`
	关键字	`非n,基础`
	作者	`帕特里克·德·格斯特1998年7月15日`
	扩展	`缺少中的（16）查尔斯·格里特豪斯四世根据…的建议哈维·P·戴尔，2013年1月4日`
	状态	`经核准的`