%I#7 2020年10月30日17:44:19
%S 130702992721160788612665774183280937096541086233024493733751,
%电话:53336709025497285284567904967082097938296653694559708528486,
%电话:10353426151106564910127771186127956931366029336713847206214143510206315735895881317912257013
%N以除数(A093653)的二进制总权重相同的5个连续数字开始运行。
%C对k进行编号,使得A093653(k)=A093653(k+1)=A093653(k+2)=A093653(k+3)=A093653(k+4)。
%连续6个数的除数的二进制总权重是否相同?如果它们存在,则它们大于10^11。
%e 1307029927是一个术语,因为A093653(1307029937)=A093652(1307029.928)=A093 653(130 7029929)=A09 3653(13070 29930)=A094 653(30 7029931)=72。
%t f[n_]:=除数和[n,数字计数[#,2,1]&];s={};m=5;fs=f/@范围[m];执行[If[Equal@@fs,AppendTo[s,n-m]];fs=Rest@AppendTo[fs,f[n]],{n,m+1,10^7}];秒
%Y参考A093653。
%A338452、A338453和A338454的Y子序列。
%Y类似序列:A045933、A045941、A049051。
%K nonn,基础
%O 1,1号机组
%A阿米拉姆·埃尔达尔,2020年10月28日
|