%I#13 2018年9月24日02:40:59

%S 1,25,35,49,55,65,77,85,91,95115119121125133143145161169，

%电话：185187203205209215217221235247259265287289295299，

%电话：30130531932325329335341343355361365371377391395403

%N A036913中m的非素数1<=t<=m的并集，gcd（t，m）=1。

%C A036913中m的非质数t列表。

%C非素数1是所有数的互质，因此a（1）=1。

%C缺少整数{175、245、275}，这是将此序列与A038509和A067793区分开来的。这些术语有系数5^2*7、5*7^2、5^2*11。只有A036913的位置{2、3、4、6、8、11、18}（即{6、12、18、42、66、126、462}）中的项较大，并且与5互质。其中只有462项大于这三项，但462可被7和11整除。因此{175、245、275}不是术语。

%q>=5的C平方素数q^2出现在序列中的位置{2，4，13，20，35，48，71，107，123，173，…}。在A036913中的索引{6，7，11，13，16，17，20，25，25，28，30，30，31，40，33，35，…}处，这些与{42，60，126，210，330，420，…}互素且小于{42，60，126，210，330，420，…}。

%e 2017年6月14日，来自米歇尔·德弗里格：（开始）

%e A036913中m<=210的非质数1列表：

%e m：1<=t<=m

%e2:1；

%e 6:1；

%e 12:1；

%e 18:1；

%e 30:1；

%e 42:1、25；

%e 60:1、49；

%e 66:1、25、35、49、65；

%e 90:1、49、77；

%e 120:1、49、77、91、119；

%e 126:1、25、55、65、85、95、115、121、125；

%e 150:1、49、77、91、119、121、133、143；

%e 210:1121143169187209；

%e。。。

%e首末项m的A036913指数，使得gcd（a（n），m）=1：

%e n a（n）频率首末

%e（电子）-------------------------------

%e 1 1 oo 1 oo

%e 2 25 4 6 18

%e 3 35 1 8 8

%e 4 49 14 7 40

%e 5 55 1 11 11

%e 6 65 3 8 18

%e 7 77 8 9 24

%e 8 85 2 11 18

%电话：9 91 11 10 40

%e 10 95 2 11 18

%e 11 115 2 11 18

%e 12 119 9 10 27

%电子13 121 75 11 308

%e 14 125 2 11 18

%电子15 133 10 12 40

%电子16 143 36 12 107

%e 17 145 1 18 18

%e 18 155 1 18 18

%电子19 161 8 14 40

%电子20 169 96 13 248

%e。。。

%e a（n）中平方素数q^2的位置：

%e q ^ 2 q

%e n a（n）sqrt（a（n））k m=A036913（k）

%e（电子）----------------------------------------------

%e 2 25 5 6 42

%e 4 49 7 7 60

%电子13 121 11 11 126

%电子20 169 13 13 210

%电子邮箱：35 289 17 16 330

%电子48 361 19 17 420

%电子71 529 23 20 630

%电话：107 841 29 25 1050

%电子123 961 31 25 1050

%电子173 1369 37 28 1470

%e 210 1681 41 30 1890

%e 234 1849 43 30 1890

%电子283 2209 47 31 2310

%电话：303 2401 49 40 5610

%电子邮箱：359 2809 53 33 2940

%电子邮箱：456 3481 59 35 3570

%电话：486 3721 61 36 3990

%电话：598 4489 67 37 4620

%电话：676 5041 71 39 5460

%电话：721 5329 73 39 5460

%e。。。

%e（结束）

%t带有[{nn=403，s=联合@文件夹列表[Max，Values[#][[All，-1]]&@KeySort@PositionIndex@EulerPhi@Range[Product[Prime@i，{i，8}]}，Union@Flatten@Map[Function[n，Select[Range@Min[n，nn]，And[Coprime Q[#，n]！PrimeQ@#]&]]，s]]（*迈克尔·德弗里格，2017年6月14日*）

%Y参见A001248、A036913、A038509、A067793、A285784、A287917。

%K nonn公司

%O 1,2号机组

%2017年6月11日，杰米·莫肯和迈克尔·德弗利格