提出

经核准的

编辑

提出

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））；}；\\提供的列表(facs公司纽法克斯)应该是非单调的单调的

gcd_of_multiplicities（lista）={my（u=长度（列表a））；如果（u<2，u，my（g=0，pe=lista[1]，j=1）；对于（i=2，u，if（列表a[i]==pe，j++，g=gcd（j，g）；j=1；pe=lista[i]）；gcd（g，j））；}\\这个 提供 李斯特(facs公司)应该 是是非单调的

Antti Karttunen，<a href=“/A303709型/b303709.txt“>n，n=1..100000时a（n）的表</a>

Antti Karttunen公司：长b文件，因为值较小且数据稀疏（前10^5项中只有367个非零值）。

A303709型（n，m=n，facs=列表（[]））=如果（1==n，（1<!=gcdof多重性（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） ）\\Antti Karttunen公司，2018年12月6日

01, 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

表[Length[Select[facsr[n]，GCD@@Length/@Split[#]>[#]!=1&]]，{n，200}]

将a（1）更改为1古斯·怀斯曼，2018年12月6日

a（n）<=A303553型（n）<=A001055号（n） ●●●●-Antti Karttunen公司，2018年12月6日

（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））；}；\\李斯特是非单调性的

A303709型（n，m=n，facs=List（[]））=if（1==n，（1<gcd_of_multiplicities（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） ）\\Antti Karttunen公司，2018年12月6日

经核准的

编辑

提出

经核准的

编辑

提出