A118694-OEIS公司

A118694号

可被数字乘积整除的半素数。

4, 6, 9, 15, 111, 115, 1111, 1115, 11111, 1111111, 1111117, 111111115, 1111113111, 1111711111, 11111111111, 111111111115, 1111111111113, 1111117111111, 11171111111111, 1111111111711111, 1111711111111111, 11111111111111111 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,1`
	评论	`Mathematica编码只适用于多数字、非小数。显然，4、6和9是成员，也是成员A102782年：重新定义半素数-罗伯特·威尔逊v2006年6月10日`
	链接	`阿洛伊斯·海因茨，n=1..100时的n，a（n）表`
	配方奶粉	`a（n）=A001358号（k）：A007954号（a（n））\|（n）-R.J.马塔尔2006年5月23日`
	例子	`115在序列中是因为（1）它是一个半素数，（2）它的数字的乘积是115=5，（3）115可以被5整除。`
	MAPLE公司	`sp:=proc（n）evalb（2=add（i[2]，i=ifactors（n）[2]））end:dp:=prog（n）local m；m： =n；1; 当m<>0时，执行%*irem（m，10，'m'）od；%结束：选择（x->irem（x，dp（x））=0和sp（x），排序（[{4，6，9，seq（seq（parse（cat（1$（k-j），t，1$j）），j=0..k），t=[1，3，5，7]），k=1..20）}[]]）[]#阿洛伊斯·海因茨2009年11月17日`
	数学	`lst={}；Do[p=次数@@整数位数@n; 如果[底漆Q@p&&PrimeQ[n/p]，附录[lst，n]；打印[n]]，{n，27510^6}]；第一次(罗伯特·威尔逊v2006年6月10日*）`
	黄体脂酮素	`（PARI）A007954号（n） ={local（resul，ncpy）；if（n<10，return（n））；ncpy=n；resul=ncpy%10；ncpy=（ncpy-ncpy%10）/10；while（ncpy>0，resul*=ncpy/10；ncpy=（ncby-ncpy/10）/10=A007954号（n）；如果（dr！=0&&n%dr==0，打印1（n，“，”）；）；）\\R.J.马塔尔2006年5月23日`
	交叉参考	`囊性纤维变性。A001358号，A102782号，A046413号，A118693号.` `上下文中的序列：A136356号 136358英镑 A115665型A085648号 A300131型 A045114号` `相邻序列：A118691号 18692年 A118693号A118695号 A118696号 A118697号`
	关键词	`基础，非n`
	作者	`Luc Stevens（lms022（AT）yahoo.com），2006年5月20日`
	扩展	`更多术语来自R.J.马塔尔2006年5月23日` `a（12）来自罗伯特·威尔逊v2006年6月10日` `进一步条款来自阿洛伊斯·海因茨2009年11月17日`
	状态	`经核准的`