A126080-OEIS公司

A126080型

a（n）=与n的一个素因子互素的正整数<n的个数。

0, 1, 2, 2, 4, 3, 6, 4, 6, 5, 10, 6, 12, 7, 6, 8, 16, 9, 18, 10, 8, 11, 22, 12, 20, 13, 18, 14, 28, 7, 30, 16, 12, 17, 10, 18, 36, 19, 14, 20, 40, 9, 42, 22, 18, 23, 46, 24, 42, 25, 18, 26, 52, 27, 14, 28, 20, 29, 58, 14, 60, 31, 24, 32, 16, 13, 66, 34, 24, 11, 70, 36, 72, 37, 30, 38 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,3`
	链接	`迈克尔·德弗利格，n=1..10000时的n，a（n）表`
	配方奶粉	`a（p）=p-1。`
	例子	`关于a（12）：1，5，7，11是每个素数除以12的互素；所以这些整数不计算在内。6是0素数除以12的互质；所以这个整数不计算在内。但6个整数2,3,4,8,9,10都是互素，正好是一个素数除以12；因此a（12）=6。` `关于a（30）：只有7个整数6、10、12、15、18、20、24每个互素正好等于一个素数除以30。因此a（30）=7。`
	MAPLE公司	A126080型：=proc（n）局部divs，pdivs，a，i，pcnt，p；divs:=数字[除数]（n）；pdivs：=[]；对于i从1到nops（divs），如果是isprime（op（i，divs；fi；od；a:=0；对于从1到n-1的i，进行pcnt:=0；对于p从1到nops（pdivs），如果gcd（i，op（p，pdivs））=1，则pcnt:=pcnt+1；fi；od；如果pcnt=1，则a:=a+1；fi；od；返回（a）；结束：对于从1到90的n，执行printf（“%d，”，A126080型（n））；od#R.J.马塔尔2007年3月14日
	数学	`表[计数[范围[n-1]，k_/；Total@Boole@Map[CoprimQ[k，#]&，#]==1]&[FactorInteger[n][[All，1]]，{n，76}](迈克尔·德弗利格2017年9月19日）`
	黄体脂酮素	`（PARI）a（n）=我的（f=系数（n））#选择（x->（x==1），向量（n-1，j，sum（k=1，#f~，gcd（j，f[k，1]）==1））\\米歇尔·马库斯2017年10月25日`
	交叉参考	`囊性纤维变性。A128487号,A128488号.` `上下文中的序列：A220096年 A122376号 A067240号A302043型 A060681号 A202479型` `相邻序列：A126077号 A126078号 A126079号126081英镑 A126082号 A126083号`
	关键词	`非n`
	作者	`勒罗伊·奎特2007年3月2日`
	扩展	`更多术语来自R.J.马塔尔2007年3月14日`
	状态	`经核准的`