A303709-OEIS公司

A303709型

使用元素的n的周期因子分解数A007916号（不是完美幂的数字）。

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

	抵消	`1,36`
	评论	`n的周期因子分解是一个大于1的正整数的有限多集，其乘积为n，其乘积的公约数大于1。注意，一个不是完美幂的数的因式分解(A007916号)总是非周期的(A303386型)，所以这个序列的非零项的指数都处于完美幂(A001597号).`
	链接	`Antti Karttunen，n=1..100000时的n，a（n）表`
	配方奶粉	`a（n）<=A303553型（n）<=A001055号（n） ●●●●-安蒂·卡图恩，2018年12月6日`
	例子	`a（900）=5周期因子分解是（223355），（22%1515），，（331010），（5566），（3030）。`
	数学	`radQ[n_]：=或[n===1，GCD@@FactorInteger[n][[All，2]]==1]；` `facsr[n_]：=如果[n<=1，{{}}，连接@@表[Map[Prepend[#，d]&，Select[facsr[n/d]，Min@@#>=d&]]，{d，选择[Rest[Divisors[n]]，radQ]}]]；` `表[Length[Select[facsr[n]，GCD@@Length/@Split[#]=1&]]，{n，200}]`
	黄体脂酮素	`（PARI）` `gcd_of_multiplicity（lista）={my（u=长度（lista，lista））；如果（u<2，u，my（g=0，pe=lista[1]，j=1）；对于（i=2，u，if（lista[i]==pe，j++，g=gcd（j，g）；j=1；pe=lista[i]）；gcd（g，j））；}；\\提供的lista（newfacs）应该是单调的` `A303709型（n，m=n，facs=List（[]））=如果（1==n，（1！=gcd_of_multiplicity（facs）），my（s=0，newfacs）；对于div（n，d，如果（d>1）&&（d<=m）&&！ispower（d），newfacs=列表（facs）；listput（newfacs，d）；秒+=A303709型（n/d，d，newfacs））；（s））\\安蒂·卡图恩，2018年12月6日`
	交叉参考	`囊性纤维变性。A000740号,A000837号,A001055号,A001597号,A007716号,A007916号,A052409号,A052410美元,A281116号,A303547型,A303552型,A303553,A303386型,A303707型,A303708型,A303710型.` `上下文中的序列：A074038号 A204843型 A204853型A185778号 A071164号 A027345号` `相邻序列：A303706型 A303707型 A303708型A303710型 A303711型 A303712型`
	关键词	`非n`
	作者	`古斯·怀斯曼2018年4月29日`
	扩展	`将a（1）更改为1古斯·怀斯曼，2018年12月6日`
	状态	`经核准的`