搜索： a280827-编号：a280827
|
| |
|
|
A176670号
|
| 与素因子具有相同数字的复合数（具有多重性），不包括零位。 |
|
+10
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,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
|
|
109608年
|
| 对n进行编号，使写入n的素因子所需的位数等于n的位数。 |
|
+10
3
|
|
|
|
2, 3, 5, 7, 10, 11, 13, 14, 15, 17, 19, 21, 23, 25, 29, 31, 35, 37, 41, 43, 47, 49, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 105, 106, 107, 109, 111, 113, 115, 118, 119, 122, 123, 125, 127, 129, 131, 133, 134, 137, 139, 141, 142, 145, 146, 147, 149, 151, 155
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
|
|
|
链接
|
|
|
|
例子
|
18775是一个术语，因为它是一个5位数的数字，在它的因式分解中有5位数：5*5*751=18775。
|
|
|
黄体脂酮素
|
（SageMath）
定义数字（x，n）：
如果（x<=0|n<2）：
返回[]
li=[]
当（x>0）：
d=divmod（x，n）
li.插入（0，d[1]）
x=d[0]
返回li；
定义系数数字（x，n）：
如果（x<=0|n<2）：
返回[]
li=[]
f=列表（系数（x））
对于范围内的c（len（f））：
对于范围（f[c][1]）中的d：
ld=数字（f[c][0]，n）
li+=ld
返回li；
定义数字差异（x，n）：
return len（factorDigits（x，n））-len（数字（x，n））
基数=10
索引=1
值=2
而（指数<=10000）：
如果（digitDiff（值，基数）==0）：
打印（str（索引）+“”+str（值））
索引+=1
值+=1
（PARI）nbd（n）=我的（f=系数（n））；求和（i=1，#f~，f[i，2]*#Str（f[i、1]））\\A076649号
isok（n）=nbd（n）==#Str（n）\\米歇尔·马库斯2021年10月11日
（Python）
来自sympy导入因子
定义正常（n）：
s、 f=str（n），因子（n）
返回n，len（s）==总和（len（str（p））*f[p]表示f中的p）
打印（列表（过滤器（正常，范围（156）））#迈克尔·布拉尼基2021年10月11日
|
|
|
交叉参考
|
|
|
|
关键词
|
基础,容易的,非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.005秒内完成
|
