%I#20 2023年3月4日15:09:52
%S 12913438639151551864264789990410281030115411591411,
%电话:14161540154316671672192419217821832435244025642567,
%电话:2691269629482953307730793208346034653589359237163721397339784226
%N形式为k+wt(k)的数字,正好表示三个不同的k,其中wt(k)=A000120(k)是k的二进制权重。
%C A228085中等于3的条目位置,或A092391中正好出现三次的数字。
%C可以表示为形式为2^n+1,n=0.1,…的不同项之和的数字,。。。有三种方式。
%H Reinhard Zumkeller和Donovan Johnson,n表,a(n)表示n=1..10000
%H<a href=“/index/Coi#Colombian”>哥伦比亚或自身编号和相关序列的索引条目</a>
%p Maple代码见A230091。
%t nt=1000;(*要生成的术语数量*)
%t S[kmax_]:=S[kmax]=表[k+总计[IntegerDigits[k,2]],{k,0,kmax}]//计数//选择[#,#[2]]==3&][[All,1]]//PadRight[#,nt]&;
%t S[nt];
%t S[kmax=2 nt];
%t同时[S[kmax]=!=S[kmax/2],kmax*=2];
%t S[kmax](*Jean-François Alcover,2023年3月4日*)
%o(哈斯克尔)
%o a230092 n=a230092_列表!!(n-1)
%o a230092_list=过滤器((==3)。a228085)[1..]
%o--_Reinhard Zumkeller,2013年10月13日
%Y参考A000120、A010061、A228088、A230058、A230091。
%Y参见A227915。
%K nonn,基础
%O 1,1号机组
%A _N.J.A.Sloane,2013年10月10日
|