%I#12 2022年6月14日15:59:47

%第1,2,542119111001372714382157991639920159209503342134617页，

%电话：3632836396394004219842438426504625346873503705536856600，

%电话：58793670136732069023723257605786393907819290693216109132088134823140466

%N数k，使得k和k+1都可以被其除数的二进制总重量整除（A093653）。

%C数k，使得k和k+1都在A093705中，或者，等价地，k可被A093653（k）整除，k+1可被A093653（k+1）整除。

%H Amiram Eldar，n的表，n的a（n）=1..10000</a>

%e 1是一个术语，因为1和2都是A093705的术语。

%t divQ[n_]：=可除[n，DivisorSum[n，数字计数[#，2，1]&]]；q1=divQ[1]；收割[Do[q2=divQ[n]；如果[q1&&q2，母猪[n-1]]；q1=q2，{n，2，10^5}][[2，1]]

%t序列位置[Table[If[Divisible[n，Total[DigitCount[Divisors[n]，2,1]]，1,0]，{n，150000}]，{1,1}][[All，1]]（*H arvey P.Dale_，2022年6月14日*）

%Y参考A000120、A093653、A093705。

%Y相似序列：A330927、A330931、A334345、A338452。

%K nonn，基础

%O 1,2号机组

%A阿米拉姆·埃尔达尔，2020年10月31日