|
| |
|
| A141586年 |
| 强可重构数字：数字n，如果n可以被d整除，那么它可以被d的除数整除。 |
|
25
|
|
|
|
1, 2, 12, 24, 36, 72, 240, 480, 720, 1440, 3360, 4320, 5280, 6240, 6720, 8160, 9120, 10080, 11040, 13440, 13920, 14880, 15840, 17760, 18720, 19680, 20160, 20640, 21600, 22560, 24480, 25440, 27360, 28320, 29280, 32160, 33120, 34080
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
设n=Product_{p}p^e_p是n的素因式分解，M=max{e_p+1}。那么n是序列iff中的n，对于范围2<=q<=M内的所有素数q，我们有e_q>=Sum_{r}下限（log_q（e_r+1））-N.J.A.斯隆2008年9月1日
|
|
|
参考文献
|
德米特里·库尼斯基（Dmitriy Kunisky），德国马诺姆（Manoim）和新泽西·A·斯隆（N.J.A.Sloane），《关于强可重构数字的准备》（On strongly refactable number，in preparation）。
|
|
|
链接
|
|
|
|
例子
|
72是合格的，因为它的除数是1,2,3,4,6,8,9,12,18,24,36,72，它们分别有1,2,2,3,4],3,6,6,8，9,12个除数，所有这些数字都是72的除数。
|
|
|
MAPLE公司
|
isA141586:=进程（n）本地dvs，d；dvs:=numtheory[除数]（n）；对于dvs中的d，如果dvs不为numtheory[tau]（d），则返回（false）：fi；od：返回（true）；结束：对于从1到100000的n，如果是A141586（n），则执行do，然后打印f（“%d，”，n）；fi；日期：#R.J.马塔尔2008年8月26日
##A100549号：如果n=prod_pp^e_p，则pp=最大素数<=1+最大e_p
带有（数字理论）：
pp:=proc（n）局部f，m；选项记忆；如果（n=1），则返回1；结束条件：；m:=1：对于op（2..-1，ifactors（n））中的f，do if（f[2]>m），则m:=f[2]：end if；结束do；预素数（m+2）；终末程序；
isA141586:=进程（n）局部ff，f，g，p，i；全球pp；
ff：=op（2..-1，ifactors（n））；
对于ff do中的f
p:=f[1]；
如果（添加（楼层（log（1+g[2]）/log（p）），g in ff）>f[2]），则
返回false；
结束条件：；
结束do；
对于i从1到pi（pp（n））do
p:=ithprime（i）；
如果（n mod p<>0），则
如果（添加（楼层（log（1+g[2]）/log（p）），g in ff）>0），则
返回false；
结束条件：；
结束条件：；
结束do；
返回true；
|
|
|
数学
|
l={}；对于[n=1，n<100000，n++，b=DivisorSigma[0，Divisors[n]]；如果[Length[Select[b，Mod[n，#]>0&]]==0，AppendTo[l，n]]]；我(*斯特凡·斯坦纳伯格2008年8月25日*）
sfnQ[n_]：=AllTrue[DivisorSigma[0，Divisors[n]]，Mod[n，#]==0&]；选择[Range[35000]，sfnQ]（*程序使用Mathematica版本10中的AllTrue函数*）(*哈维·P·戴尔2019年1月27日*）
|
|
|
黄体脂酮素
|
（PARI）是_A141586号（n） ={位测试（n，0）&返回（n==1）；fordiv（n，d，n%numdiv（d）&返回）；1}\\M.F.哈斯勒2010年12月5日
（鼠尾草）是_A141586号=λn：全部（除数（d）的number_of_diviators（n）。除数（n）中d的除数（n））#D.S.麦克尼尔2010年12月5日
|
|
|
交叉参考
|
囊性纤维变性。A033950美元,A134865号,A109802号,A141551号,A141756美元,A141758号,A141900型,A142593号,A142594号,A100549号,A100762号,A082725号,A135130型,A143718号,A143719号,A143720型.
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
更多来自德国Manoim的条款（gerrymanoim（AT）gmail.com），2008年8月27日
|
|
|
状态
|
经核准的
|
| |
|
|
