A163411-OEIS公司

A163411号

如果一个正整数是用二进制写的回文，并且它可以被至少一个非二进制回文的素数整除，则包含该正整数。

33, 65, 99, 129, 165, 195, 231, 273, 297, 325, 341, 387, 403, 427, 455, 471, 495, 513, 561, 585, 633, 645, 693, 717, 819, 843, 891, 903, 951, 975, 1023, 1025, 1057, 1105, 1137, 1161, 1273, 1317, 1365, 1397, 1421, 1501, 1539, 1651, 1675, 1707 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1，1`
	评论	`当以二进制形式写入时，所有回文形式的正整数都是在此序列或序列中独占的A163410型。`
	链接	`罗伯特·伊斯雷尔，n=1..10000时的n，a（n）表`
	例子	`二进制中的99是1100011，这是一个回文。99可以被素数3和11整除。二进制中的3是11，一个回文。但二进制中的11（十进制）是1011，而不是回文。由于至少有一个素数除以非二进制回文的二进制回文99，因此99包含在这个序列中。`
	MAPLE公司	`dmax:=15:#获取最多包含dmax二进制数字的所有项` `revdigs:=进程（n）` `局部L，Ln，i；` `L： =转换（n，基数，2）；` `Ln:=nops（L）；` `加（L[i]2^（Ln-i），i=1..Ln）；` `结束进程：` `isbpali:=proc（n）选项记忆；局部L；五十： =换算（n，基数，2）；L=列表工具：-反向（L）结束进程：` `Bp:={0，1}：` `对于从2到dmax的d do` `如果d:：即使如此` `Bp:=Bp联合{seq（2^（d/2）x+revdigs（x），x=2^（d_2-1）..2^` `其他的` `m： =（d-1）/2；` `B： ={seq（2^（m+1）*x+revdigs（x），x=2^（m-1）..2^m-1）}；` Bp:=Bp联合B联合映射（`+`，B，2^m） `fi（菲涅耳）` `日期：` `R： =选择（t->ormap（非isbpali，数字理论：-factorset（t）），Bp）：` `排序（转换（R，列表））#罗伯特·伊斯雷尔2016年12月19日`
	数学	`a={}；对于[n=2，n<10000，n++，如果[FromDigits[Reverse[IntegerDigits[n，2]]，2]==n，b=表[FactorInteger[n][[i，1]]，{i，1，Length[FactorInteger[n]]}]；对于[i=1，i<长度[b]+1，i++，如果[！FromDigits[Reverse[IntegerDigits[b[i]]，2]，2]==b[i]，AppendTo[a，n]；中断]]]；一个(斯特凡·斯坦纳伯格2009年8月5日）`
	交叉参考	`囊性纤维变性。A006995号,A163410型,A207039型。` `上下文中的序列：A325377型 A061560号 A118618号A335669飞机 A339908型 A071595号` `相邻序列：A163408号 A163409号 A163410型A163412号 A163413号 A163414号`
	关键词	`基础,非n`
	作者	`勒罗伊·奎特2009年7月27日`
	扩展	`更多术语来自斯特凡·斯坦纳伯格2009年8月5日` `更正人勒罗伊·奎特2009年8月9日`
	状态	`经核准的`