%I#21 2023年10月19日19:53:39
%S 9,12,15,18,21,25,27,30,33,35,36,39,40,42,45,48,49,50,51,54,55,56,57,
%电话:60,63,65,66,69,70,75,77,78,81,84,85,87,90,91,93,95,98,99100102105,
%电话:108110111114115117119120121123126129130132133138140141143145147150153
%N最大除数<=sqrt(j)不是2的幂的数字j。
%C此外,A033676中的术语索引不是2的幂。
%C与A342082的不同之处在于没有{24、72、80、96、112…}_雨果·普福尔特纳,2023年10月15日
%H Paolo Xausa,<a href=“/A365408/b365408.txt”>n表,n=1..10000的a(n)</a>
%t A365408Q[n_]:=带[{d=除数[n]},!整数Q[Log2[d[[Ciling[Length[d]/2]]]]];
%t选择[范围[200],A365408Q](*Paolo Xausa_,2023年10月19日*)
%o(Python)
%o从itertools导入计数,islice
%o来自sympy导入除数
%o定义A365408_gen(startvalue=1):#术语生成器>=startvalue
%o返回滤波器(lambda i:(a:=(d:=除数(i))[len(d)-1>>1])=1<<a.比特长度()-1,计数(最大值(起始值,1))
%o A365408_list=list(islice(A365408-gen(),30))#_Chai Wah Wu_,2023年10月18日
%A365406的Y补充。
%Y参见A033676、A057716、A342082。
%K nonn公司
%O 1,1号机组
%2023年10月14日,A _ Omar E.Pol_
|