%I#12 2020年10月31日02:53:37

%S 3,4,7,20,31,57,94,981181221272012132182302422434334384，

%电话：39342342948156560363694704729766844921113811411221，

%电话：126214011533165417261761183718381862188219422162224523612362

%N个数k，使得k和k+1具有相同的除数的总二进制权重（A093653）。

%C编号k，使A093653（k）=A093652（k+1）。

%梅森素数（A000668）是项，因为如果2^p-1是素数，那么A093653（2^p-1）=A093652（2^p）=p+1。

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

%e3是一个术语，因为A093653（3）=A093652（4）=3。

%t f[n_]：=除数和[n，数字计数[#，2，1]&]；s={}；f1=f[1]；Do[f2=f[n]；如果[f1==f2，则附加到[s，n-1]]；f1=f2，{n，2，240}]；秒

%Y参考A000120、A093653。

%Y A000668是一个子序列。

%Y类似序列：A002961、A005237、A054004、A064125、A238380、A293183、A306985。

%K nonn，基础

%O 1,1号机组

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