提出

经核准的

编辑

提出

f[n_]：=f[n]=其中[n==1，1，PrimeQ@n，NextPrime@n，True，Times@@Replace[FactorInteger[n]，{p_，e_}:>f[p]^e，1]]；g[n_]：=如果[n==1，0，PrimePi@FactorInteger[n][[1，1]]]；函数[s，MapIndexed[Function[t，t/GCD[t，f@First@#2]][Lookup[s，g[First@@#2]+1][[#1]]-Boole[First@#2==1]]&，#]&@Map[Position[Lookup[s，g@#]，#][[1，1]&，Range@120]]@PositionIndex@Array[g，10^4](*迈克尔·德弗利格，2017年3月8日，第10版*）

提出

编辑

编辑

提出

注：尽管如此，a（352）=1A280703型（352）=3作为A003961号（352）=3159=3^5*13，而A250469型(352) = 1053 = 3^4 * 13.. (因此 也 A266645型(352) =176=352/2）问题：是否还有n个A003961号（n） =k*A250469型（n） 对于某些整数k>1？请参阅中的评论A280703型.

参见。A003961号,A250469型,A266645型,A280701型,A280702型,A280703型.

提出

编辑

编辑

提出

注：尽管如此，a（352）=1A280703型（352）=3作为A003961号（352）=3159=3^5*13，而A250469型(352) = 1053 = 3^4 * 13.问题:是 那里 更多 n个 对于 哪一个 A003961号(n个) =k个*A250469型(n个)对于 一些 整数 k个>1?囊性纤维变性.也 评论 在里面 A280703型.

A280701型（n） =n-a（n）。

参见。A003961号,A250469型,A280701型,A280702型,A280703型.

Antti Karttunen，<a href=“/2008年2月/b280704.txt“>n表，n=1..13098时为a（n）</a>

注：尽管如此，a（352）=1A280703型(352) =三 作为 A003961号(352) =3159=三^5*13,虽然 A250469型(352) =1053=三^4*13.