A069023-OEIS公司

A069023号

如果任意两个成员的乘积也是n的除数，则定义n的除数子集为专用子集。1不允许作为成员，因为它平凡地给出1*d=d一个除数。a（n）是具有至少两个成员的n的除数的专用子集的数目。

0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 3, 0, 1, 1, 2, 0, 3, 0, 3, 1, 1, 0, 9, 0, 1, 1, 3, 0, 7, 0, 5, 1, 1, 1, 9, 0, 1, 1, 9, 0, 7, 0, 3, 3, 1, 0, 17, 0, 3, 1, 3, 0, 9, 1, 9, 1, 1, 0, 20, 0, 1, 3, 8, 1, 7, 0, 3, 1, 7, 0, 28, 0, 1, 3, 3, 1, 7, 0, 17, 2, 1, 0, 20, 1, 1, 1, 9, 0, 20, 1, 3, 1, 1, 1, 35, 0, 3, 3, 9, 0, 7 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,12`
	评论	`a（n）由n的素数签名决定。`
	链接	`安蒂·卡图恩，n=1..16384时的n，a（n）表` `安蒂·卡图恩，计算此序列的方案程序` `根据n的因式分解中的指数计算序列的索引项`
	配方奶粉	`似乎对于n>=3，a（p^n）=A077866号（n-3）-Antti Karttunen公司2017年11月24日`
	例子	`a（12）=3。12的除数是1，2，3，4，6，12。除数子集（2,3）、（2,6）和（3,4）的乘积也是12的除数。a（24）=9，专用除数子集为（2,3）、（2,4）、（2.6）、（2.12）、（3,4）、。`
	黄体脂酮素	`（PARI）` `\\以下程序效率很低：` `A069023号（n） ={if（bigomega（n）<2，return（0））；my（pds=（除数（n）[2..numdiv（n）]），subsets=选择（v->（长度（v）>=2），功率集（pds）），pair_products=应用（ss->podp（ss），子集），prodsmodn=应用（pps->向量（#pps，i，n%pps[i]），pair _products））；长度（select（s->0=vecsum（s），prodmodn）））；}；` `功率集（v）={my（siz=2^长度（v），pv=矢量（siz））；对于（i=0，siz-1，pv[i+1]=选择位（v，i））；pv；}；` `choosebit（v，m）={my（s=向量（hammingweight（m）），i=j=1）；而（m>0，如果（m%2，s[j]=v[i]；j++）；i++；m>>=1），s；}；` `podp（v）={my（siz=二项式（长度（v），2），rv=向量（siz），k=0）；对于（i=1，长度（vpodp=不同对的乘积` `\\Antti Karttunen公司2017年11月24日` `（方案）；；请参阅链接部分中的。`
	交叉参考	`囊性纤维变性。A077866号.` `上下文中的序列：A249442号 A334739型 A131802号A275336型 A091614号 A350829型` `相邻序列：A069020型 A069021美元 A069022号A069024号 A069025型 A069026号`
	关键字	`非n`
	作者	`阿马纳特·穆尔蒂2002年4月2日`
	扩展	`编辑人大卫·沃瑟曼2003年3月26日`
	状态	`经核准的`