搜索: a338452-编号:a338482
|
|
|
|
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
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
例子
|
|
|
数学
|
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+1155000}];秒
序列位置[Table[Total[DigitCount[Divisors[n],2,1]],{n,160000}],{x_,x_,x_}][[All,1](*哈维·P·戴尔2023年2月4日*)
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
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
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
例子
|
|
|
数学
|
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}];秒
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
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
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
例子
|
|
|
数学
|
divQ[n_]:=可除数[n,除数和[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日*)
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
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
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
例子
|
|
|
数学
|
f[n_]:=次数@@(数字计数[#,2,1]&/@除数[n]);选择[范围[10000],f[#]==f[#+1]&]
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
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
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
这个序列的所有项都是奇数。
|
|
链接
|
|
|
例子
|
|
|
数学
|
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)
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1307029927, 2116078861, 2665774183, 2809370965, 4108623302, 4493733751, 5333670902, 5497285284, 5679049670, 8209799382, 9665369455, 9708528486, 10353426151, 10606564910, 12777118615, 12795699493, 13660293367, 13847206214, 14351020663, 15735895813, 17912257013
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
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}];秒
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.010秒内完成
|