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

 

徽标
提示
(来自的问候整数序列在线百科全书!)
A364023型 至少有两个不同素因子的回文,其素因子按降序排列(具有多重性)并串联,形成以10为底的回文。 2
111, 414, 777, 35853, 1226221, 7673767, 7744477, 9396939, 859767958, 11211911211, 12467976421, 72709290727, 93969696939, 1030507050301, 1120237320211, 1225559555221, 1234469644321, 1334459544331, 3254595954523, 10048622684001, 100330272033001, 100827848728001 (列表;图表;参考;;历史;文本;内部格式)
偏移
1,1
链接
例子
111 = 37*3
414 = 23*3*3*2
777 = 37*7*3
35853=37*19*17*3
1226221 = 1201*1021
7673767 = 79111*97
7744477 = 3119*191*13
9396939 = 31013*101*3
859767958 = 2731*199*113*7*2
数学
(*生成偶数n*的回文)
poli[n_Integer?EvenQ]:=起始数字[Join[#,Reverse[#]]]&/@
删除案例[元组[范围[0,9],n/2],{0..,___}]
(*生成带有奇数n*的回文)
poli[n_Integer?OddQ]:=扁平[Table[FromDigits[Join[#,{k},Reverse[#]]]&/@
删除案例[元组[范围[0,9],(n-1)/2],{0..,___}],{k,0,9}]]
(*查找递减因子序列*)
下降因子[n_Integer]:=
回文Q[StringJoin[Reverse[ToString/@Flatten[Table[#1,#2]&@@@#]]]&&
长度[#]>1&@FactorInteger[n]
(*大小为7的回文示例*)
并行@选择[poli[7],descentFACTOR]//排序//绝对计时
交叉参考
关键词
非n基础坚硬的
作者
维塔利·考罗夫2023年7月4日
状态
经核准的

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

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

上次修改时间:2024年4月27日05:51 EDT。包含372009个序列。(在oeis4上运行。)