A125141-OEIS公司

A125141号

a（1）=2；对于n>1，a（n）=SENSigma（a（n-1）），其中SENSigga（m）=（-1）^（（Sum_i r_i）+Omega（m（rj）是pj除以m的最大幂。

三

2, 3, 4, 5, 6, 12, 20, 30, 72, 165, 288, 693, 1056, 3024, 9280, 22500, 42845, 60480, 240000, 794580, 1814400, 7040040, 26352000, 98654400, 321552000, 1260230400, 5311834416, 17570520000, 75087810000, 325180275840, 1526817600000

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

“Max（r_j）”的含义如下：如果d|m，d=p^e*q^f，m=p^x*q^y*r^z，则Max（e）=x，Max（f）=y。

链接

n=1..31时的n，a（n）表。

MAPLE公司

SENSigma：=proc（n）局部ifs，i，a，r，p；ifs:=ifactors（n）[2]；a:=1；对于i从1到nops（ifs）dor:=op（2，op（i，ifs））；p:=op（1，op（i，ifs））；a:=a*（p*（1-p^r）/（1-p）-（-1）^r）；od；返回（a）；结束时间：125141英镑：=proc（nmax）局部a；a:=[2]；而nops（a）<nmax do a：=[op（a），SENSigma（op（-1，a））]；od；返回（a）；结束时间：A125141号(40) ; #R.J.马塔尔2007年5月18日

数学

SENSigma[n_]：=模块[{Ifs，i，a，r，p}，Ifs=系数整数[n]；a=1；对于[i=1，i<=长度[Ifs]，i++，r=Ifs[[i，2]]；p=Ifs[[i，1]]；a=a（p（1-p^r）/（1-p）-（-1）^r）]；返回[a]]；

A125141号[nmax_]：=模块[{a}，a={2}；而[Length[a]<nmax，a=附加[a，SENSigma[a[-1]]]；返回[a]]；

A125141号[40] (*Jean-François Alcover公司2023年10月26日之后R.J.马塔尔*)

交叉参考

囊性纤维变性。A126851号,A126852号,A125142号.

上下文中的序列：A273733型 A218345型 A059460型*A350211型 A282505型 A165304材质

相邻序列：A125138号 A125139号 A125140型*A125142号 A125143号 A125144号

关键词

非n

作者

Yasutoshi Kohmoto公司2007年1月12日

扩展

编辑人N.J.A.斯隆根据…的建议安德鲁·普列韦（Andrew S.Plewe）2007年5月14日

更多术语来自R.J.马塔尔2007年5月18日

状态

经核准的