|
| |
|
| A176670号 |
| 与素因子具有相同数字的复合数（具有多重性），不包括零位。 |
|
12
|
|
|
|
1111, 1255, 12955, 17482, 25105, 28174, 51295, 81229, 91365, 100255, 101299, 105295, 107329, 110191, 110317, 117067, 124483, 127417, 129595, 132565, 137281, 145273, 146137, 149782, 163797, 171735, 174082, 174298, 174793, 174982, 193117, 208174, 210181, 217894
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
这些数字仍然需要一个更好的名称-伊利·戈尔登2016年12月25日
这个序列的项的零位数永远不会超过它们的素因子-伊利·戈尔登2017年1月10日
|
|
|
链接
|
Ely Golden，n=1..10000时的n，a（n）表【第1至2113项由Paul Weisenhorn计算；第2114至10000项由Ely Golden计算，2016年11月30日】
|
|
|
例子
|
n=25105=5*5021；n和n的因式分解都有数字1,2,5,5；排序并排除零。
n=110191=101*1091；n和n的因式分解都有数字1,1,1,9；排序并排除零。
n=171735=3*5*107*107；n和n的因式分解都有数字1,1,3,5,7,7；排序并排除零。
|
|
|
数学
|
fQ[n_]：=块[{id=Sort@IntegerDigits@n，s=Sort@Flatten[IntegerDigits@Table[#[[1]]，{#[[2]]}]&/@FactorInteger@n]}，而[id[[1]]==0，id=Drop[id，1]]；而[s[[1]]==0，s=Drop[s，1]]；n>1&&！PrimeQ@n&&s==id]；选择[Range@200000，fQ]
选择[Range[2*10^5]，Function[n，And[CompositeQ@n，Sort@DeleteCases[#，0]&@IntegerDigits@n==Sort@DeleteCases[#，0]&@Flatten@Map[IntegerDigits@ConstantArray[#1，#2]&@@#&，FactorInteger@n]]](*迈克尔·德弗利格2016年12月10日*）
|
|
|
黄体脂酮素
|
（Python）
从sympy导入因子，展平
def-sd（n）：返回排序的（str（n）.replace（'0'，''））
定义正常（n）：
f=因子（n）
返回和（f[p]表示f中的p）>1且sd（n）==排序（展平（sd（p）*f[p]用于f中的p））
打印（列表（过滤器（正常，范围（220000）））#迈克尔·布拉尼基2021年4月22日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n，基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
