登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志

请做一个捐赠让OEIS继续运行。我们现在已经56岁了。在过去的一年里,我们增加了10000个新序列,达到了近9000个引用(通常说“感谢OEI的发现”)。
其他方式捐赠

提示
(问候来自整数序列在线百科全书!)
A066637号 所有因子大于1的n的所有因子分解中的元素总数。 4
1、1、1、1、3、1、3、1、3、1、6、3、3、1、1、8、1、3、3、3、8、12、1、8、1、8、1、8、3、3、3、1、17、3、3、3、17、3、3、3、22、1、3、3、22、1、3、3、3、22、1、17、17、17、17、17、17、17、17、17、17、17、17、17、17、17、17、17、17、3、3、3、3、3、3、3、3、3、10、1、1、1、3、3、10、1、8、3、10、10、1、8、3、10、1、3、10、1、1、1、1 8,3,10,1,34,12,3,1,27,3,3,3,17,1,27,3,8,3,3,3 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

1,4个

参考文献

阿玛纳特·穆尔蒂,配分函数的推广,引入Smarandache因子划分,Smarandache概念期刊,第11卷,1-2-3,2000年春季。

阿玛纳特·穆尔蒂,《斯马兰达赫因子划分的长度和范围》,斯马兰达奇概念期刊,第11卷,1-2-3,2000年春季。

链接

阿洛伊斯·P·海因茨,n=1..20000的n,a(n)表(T.D.Noe的前1000个术语)

例子

a(12)=8:12(12),(6*2),(4*3),(3*2*2)的4个因子分解,分别有1、2、2、3个元素,共8个。

枫木

#返回分解(产品表示)的列表列表

#在每个子列表中,对因子进行排序。最小因素

#返回的子列表的每个元素都可以用“mincomp”指定。

#如果mincomp=2,则返回的列表中包含的子列表数为A001055型(n) 一。

#示例:

#n=8和mincomp=2 return[[2,2,2],[4,8],[8]]

listProdRep:=过程(n,mincomp)

局部dvs,结果,f,i,j,rli,tmp;

结果:=[];

如果n<mincomp,则返回的列表为空

如果n>=mincomp,则

如果n=1,则

返回([1]);

其他

计算除数,然后取每个除数

#作为

#子列表。示例:对于n=8,使用{1,2,4,8},并考虑

(对于mincomp=2)子列表[2,…],[4,…]和[8]。

dvs:=numtheory[除数](n);

我从1到nops(dvs)做什么

#从除数中选择head元素'f'

f:=op(i,dvs);

如果这已经是最大除数n

这个头部元素本身就是最后一个

#子列表

如果f=n且f>=mincomp,则

结果:=[op(结果),[f]];

elif f>=最小补偿

如果这不是最大元素

#n本身,产生所有因子分解

剩余因子的递归。

rli:=procname(n/f,f);

#准备所有产生的结果

#从头部的递归

#结果的元素。

对于j从1到nops(rli)do

tmp:=[f,op(op(j,rli))];

结果:=[op(RESU),tmp];

外径;

金融机构;

外径;

金融机构;

金融机构;

结果;

结束:

A066637号:=过程(n)

局部f,d;

a:=0;

对于listProdRep(n,2)中的d,do

a:=a+nops(d);

结束do:

a;

结束过程:#R、 J.马萨2013年7月11日

#第二个枫树计划:

带(数字):

b: =proc(n,k)选项记住;`if`(n>k,0,[1$2])+

`if`(isprime(n),0,(p->p+[0,p[1]])(添加(

如果`(d>k,0,b(n/d,d)),d=除数(n)减{1,n})))

结束:

a: =n->`如果`(n<2,0,b(n$2)[2]):

顺序(a(n),n=1..120)#海因茨2019年2月12日

数学

g[1,r\U]:=g[1,r]={1,0};g[n n n U,r UU]:=g[n,r]=模块[{ds,i,i,val},ds=选择[除数者[n]的1,1<<<=r&];val={0,0}+Sum[g[n n/ds[[i]]],ds[[i[i]]],{i 1,1,长度[ds]}];val+{0,val[[1]]]}];a[n n[n[n[n[n[n,n,n[g[n,n,n]g[n,n,n]加加加n[g[g[n[n[[2]];a/@Range[95](*g[n,r]={c,f},其中c是因子<=r的n的因子分解数,f是其中的因子总数。-希克森院长2002年10月28日*)

交叉引用

囊性纤维变性。邮编:A162247.

上下文顺序:A236829号 A236800个 A126212号*A317144飞机 A050336号 A281113号

相邻序列:A066634号 A066635号 A066636号*A066638号 A066639号 A066640号

关键字

作者

阿玛纳特·穆尔蒂2001年12月28日

状态

经核准的

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

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

上次修改日期:美国东部时间2020年12月2日13:39。包含338876个序列。(运行在oeis4上。)