OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A230091型 对于两个完全不同的k,形式为k+wt(k)的数字,其中wt(k)=A000120号(k) 是k的二进制权重。 10
5, 14, 17, 19, 22, 31, 33, 36, 38, 47, 50, 52, 55, 64, 67, 70, 79, 82, 84, 87, 96, 98, 101, 103, 112, 115, 117, 120, 131, 132, 143, 146, 148, 151, 160, 162, 165, 167, 176, 179, 181, 184, 193, 196, 199, 208, 211, 213, 216, 225, 227, 230, 232, 241, 244, 246, 249, 258, 260, 262, 271, 274, 276, 279, 288, 290, 293, 295 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
条目位置等于2 inA228085号,或出现两次的数字A092391号.
可以表示为形式为2^n+1,n=0.1,…的不同项之和的数字,。。。有两种方式。
链接
莱因哈德·祖姆凯勒(Reinhard Zumkeller),n=1..10000时的n,a(n)表
例子
5=3+2=4+1,所以5在这个列表中。
MAPLE公司
使用(线性代数):
读取转换;
wt:=proc(n)局部w,m,i;w:=0;m:=n;当m>0时,i:=m mod 2;w:=w+i;m:=(m-i)/2;od;w;结束时间:#A000120号
M: =1000;
lis1:=数组(0..M);
lis2:=数组(0..M);
ctmax:=4;
对于从0到ctmax的i,执行ct[i]:=数组(0..M);日期:
对于从0到M的n do
m: =n+重量(n);
lis1[n]:=m;
如果(m<=m),则lis2[m]:=lis2[m]+1;fi;
日期:
t1:=[seq(lis1[i],i=0..M)]#A092391号
t2:=[seq(lis2[i],i=0..M)]#A228085号
COMPl(t1)#A010061号
对于i从1到M,做h:=lis2[i];
如果h<=ctmax,则ct[h]:=[op(ct[h]),i];fi;日期:
长度:=nops(ct[0]);[seq(ct[0][i],i=1..len)]#A010061号再一次
长度:=nops(ct[1]);[seq(ct[1][i],i=1..len)]#A228088号
长度:=nops(ct[2]);[seq(ct[2][i],i=1..len)]#A230091型
长度:=nops(ct[3]);[seq(ct[3][i],i=1..len)]#A230092型
数学
nt=100;(*要生成的术语数量*)
S[kmax_]:=S[kmax]=表[k+总计[IntegerDigits[k,2]],{k,0,kmax}]//计数//选择[#,#[2]]==2&][[All,1]]//PadRight[#,nt]&;
S[nt];
S[kmax=2 nt];
而[S[kmax]=!=S[kmax/2],kmax*=2];
S[kmax](*Jean-François Alcover公司2023年3月4日*)
黄体脂酮素
(哈斯克尔)
a230091 n=a230091_列表!!(n-1)
a230091_list=过滤器((==2)。a228085)[1..]
--莱因哈德·祖姆凯勒2013年10月13日
交叉参考
囊性纤维变性。A227915型.
关键词
非n基础
作者
N.J.A.斯隆2013年10月10日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:2024年5月28日14:43 EDT。包含372913个序列。(在oeis4上运行。)