显示找到的6个结果中的1-6个。
第页1
3, 242, 243, 1837, 2361, 3693, 3728, 6061, 6457, 9782, 11181, 11721, 13855, 15177, 20017, 22591, 28021, 31461, 31887, 33098, 33993, 38137, 52016, 52112, 60321, 76897, 78542, 78745, 80461, 108394, 116017, 119541, 124453, 125493, 127117, 127417, 145369, 151805, 154113
数学
f[n_]:=除数和[n,数字计数[#,2,1]&];s={};m=3;fs=f/@范围[m];执行[If[Equal@@fs,AppendTo[s,n-m];fs=Rest@AppendTo[fs,f[n]],{n,m+1,155000}];秒
序列位置[Table[Total[DigitCount[Divisors[n],2,1]],{n,160000}],{x_,x_,x_}][[All,1](*哈维·P·戴尔2023年2月4日*)
242, 947767, 1041607, 2545015, 3275463, 8170983, 15720871, 21532430, 23752181, 25135885, 25595913, 27981703, 28226983, 30505142, 30962767, 33364805, 37264493, 49002661, 49766629, 52910454, 53408456, 57917191, 57952016, 58331576, 59230454, 60014053, 60723111, 63378005
数学
f[n_]:=除数和[n,数字计数[#,2,1]&];s={};m=4;fs=f/@范围[m];执行[If[Equal@@fs,AppendTo[s,n-m]];fs=Rest@AppendTo[fs,f[n]],{n,m+1,10^7}];秒
1, 2, 54, 2119, 11100, 13727, 14382, 15799, 16399, 20159, 20950, 33421, 34617, 36328, 36396, 39400, 42198, 42438, 42650, 46253, 46873, 50370, 55368, 56600, 58793, 67013, 67320, 69023, 72325, 76057, 86393, 90781, 92906, 93216, 105909, 132088, 134028, 134823, 140466
数学
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]]
SequencePosition[Table[If[Divisible[n,Total[DigitCount[Divisors[n],2,1]],1,0],{n,150000}],{1,1}][[All,1](*哈维·P·戴尔2022年6月14日*)
1, 9, 85, 697, 1285, 2605, 4573, 5845, 6001, 6241, 6613, 7141, 7453, 8005, 10897, 12453, 13141, 15445, 19789, 20345, 21445, 21913, 22873, 25957, 36565, 36601, 39597, 44761, 46405, 53677, 56137, 56593, 61013, 63445, 70094, 72913, 76977, 80913, 82405, 87085, 87601
数学
f[n_]:=次数@@(数字计数[#,2,1]&/@除数[n]);选择[范围[10000],f[#]==f[#+1]&]
123, 219, 695, 1261, 1851, 1943, 3543, 5963, 7031, 7613, 7769, 7861, 10081, 11357, 11629, 12083, 13211, 13791, 14185, 15699, 15835, 15929, 16241, 18649, 20197, 20989, 22521, 23449, 23521, 23963, 24461, 27215, 27829, 28263, 28367, 29485, 29651, 30359, 30901, 31803
数学
q[n_]:=除数和[n,数字计数[#,2,1]&]==2*数字计数[n,2,1];seq[kmax_]:=模块[{s={},k=1,q1=False,q2},Do[q2=q[k];如果[q1&&q2,AppendTo[s,k-2];q1=q2,{k,3,kmax,2}];s] ;序列[32000]
黄体脂酮素
(PARI)列表a(kmax)={my(is1=0,is2);对于步骤(k=1,kmax,2,is2=(sumdiv(k,d,hammingweight(d))==2*hammingweight(k));如果(is1&&is2,print1(k-2,“,”));is1=is2)
1307029927, 2116078861, 2665774183, 2809370965, 4108623302, 4493733751, 5333670902, 5497285284, 5679049670, 8209799382, 9665369455, 9708528486, 10353426151, 10606564910, 12777118615, 12795699493, 13660293367, 13847206214, 14351020663, 15735895813, 17912257013
评论
6个连续数字的除数的二进制总权重是否相同?如果它们存在,则它们大于10^11。
数学
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}];秒
搜索在0.005秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月23日05:13。包含376143个序列。(在oeis4上运行。)
|