%I#5 2019年7月27日14:57:51
%S 1,2,3,5,7,10,11,13,15,17,19,22,23,29,30,31,34,37,39,41,43,46,47,51,
%电话:53,55,59,61,62,65,67,71,73,77,79,82,83,85,87,89,91,93,94,97101102,
%电话:103107109110113115118119127129130131134137139141
%N二进制进位连接的严格整数分区的Heinz数。
%两个正整数的二进制进位是1在其反向二进制展开中位置的重叠。如果顶点为部分且边为二进制进位的图是连通的,则整数分区是二进制进位连通的。
%整数分区的Heinz数(y_1,…,y_k)是素数(y_1)*…*素数(yk),所以这些是素数指数是二进制进位连接的无平方数。n的素数指数是一个数m,使得素数(m)除以n。n的多个素数指数集是A112798的第n行。
%e术语序列及其基本指数开始于:
%e1:{}
%e2:{1}
%电子3:{2}
%电子5:{3}
%电子7:{4}
%e 10:{1,3}
%e 11:{5}
%e 13:{6}
%e 15:{2,3}
%e 17:{7}
%e 19:{8}
%e 22:{1,5}
%e 23:{9}
%e 29:{10}
%e 30:{1,2,3}
%e 31:{11}
%e 34:{1,7}
%e 37:{12}
%e 39:{2,6}
%e 41:{13}
%e 43:{14}
%t binpos[n_]:=连接@@Position[Reverse[IntegerDigits[n,2]],1];
%t csm[s_]:=使用[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]>0]&]},如果[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[1]]]]];
%t选择[Range[100],SquareFreeQ[#]&&Length[csm[binpos/@PrimePi/@First/@FactorInteger[#]]<=1&]
%Y参见A019565、A048143、A056239、A112798、A304714、A30471、A305078。
%Y参考A325098、A325099、A325100、A325105、A325110、A325118。
%K nonn公司
%O 1,2号机组
%A _Gus Wiseman_,2019年3月28日
|