%I#30 2019年3月26日20:42:52

%第11211431691872092212472892939323361377391403437481页，

%电话：493527529533559595896116296667689697703713731767779，

%电话：793799817841851871893899901923943949961989100310071027103710791081

%N对于A002110中的一些原始p#，k>p#模p#的可能非原始残基。

%C原始名称：非素数p_n#<k<p_（n+1）#和gcd（k，p_n#）=1的并集，其中p_n#=A002110（n）。

%C From _Michael De Vlieger_，2017年5月24日：（开始）

%C设p_n#=A002110（n）。该序列包括非素数p_n#<k<p_（n+1）#，但不重复序列中已经出现的项（主要是p_n#的1，n>1）。

%C如果视为数字三角形T（n，k），则行长度<=A048863（n）。（结束）

%C与用圆周为p#的砂轮筛分底漆有关：对于2*3*5的砂轮，唯一相关的非底漆残留量为1，而对于2*3+5*7的砂轮，则有5个以上的非底漆残余量{121、143、169、187、209}_M.F.Hasler，2019年3月25日

%H Jamie Morken，n的表，n=1..1000的a（n）</a>

%e首字母（2）=2*3=6有两个总数（1和5），首字母（3）=2*3*5=30有八个总数（1,7,11,13,17,19,23,29），等等。

%取这些列表的并集，去掉素数，得到序列。

%t MapIndexed[Select[Range@@#1，Function[k，And[If[First@#2==1，！PrimeQ@k，CompositeQ@k>1]，CoprimeQ[Last@#1，k]]]&，Partition[FoldList[#1#2&，1，Prime@Range@5]，2，1]//Flatten（*Michael De Vlieger_，2017年5月24日*）

%o（PARI）select（n->！isprime（n），setunion（（S（p，M）=集合（质数（[1，p*M]）%M））（11210），S（132310））\\_M.F.Hasler_，2019年3月25日

%Y参考A002110、A048863。

%K nonn公司

%O 1,2号机组

%A _Jamie Morken，2017年4月26日

%E编辑：N.J.A.Sloane，2017年5月1日

%E 2019年3月25日，M.F.Hasler_替换了错误定义，增加了更多术语