%I#16 2023年7月24日02:35:43
%S 1,6,10,12,18,20,21,24,34,36,40,48,55,66,68,69,72,80,81,96115130,
%电话132136144155160185192205258260261264272273288295320,
%电话:32135538439542514516520528535544565576595623625637
%N在二进制表示中具有lpf(m)个1的数字m,其中lpf=最小素因子=A020639;a(1)=1。
%H Reinhard Zumkeller,n的表,n=1..10000的a(n)</a>
%F A000120(a(n))=A020639(a(n))。
%e、。n|a(n)|A007088(a(n
%e、----+------+---------------+--------------
%e、。1 | 1 | 1 | 1
%e、。2 | 6 | 110 | 2 * 3
%e、。3 | 10 | 1010 | 2 * 5
%e、。4 | 12 | 1100 | 2^2 * 3
%e、。5 | 18 | 10010 | 2 * 3^2
%e。6 | 20 | 10100 | 2^2 * 5
%e、。7 | 21 | 10101 | 3 * 7
%e、。8 | 24 | 11000 | 2^3 * 3
%e、。9 | 34 | 100010 | 2 * 17
%e、。10 | 36 | 100100 | 2^2 * 3^2
%e、。11 | 40 | 101000 | 2^3 * 5
%e、。12 | 48 | 110000 | 2^4 * 3
%e、。13 | 55 | 110111 | 5 * 11
%e、。14 | 66 | 1000010 | 2 * 3 * 11
%e、。15 | 68 | 1000100 | 2^2 * 17
%e。16 | 69 | 1000101 | 3 * 23
%e、。17 | 72 | 1001000 | 2^3 * 3^2
%e、。18 | 80 | 1010000 | 2^4 * 5
%e、。19 | 81 | 1010001 | 3^4
%e、。20 | 96 | 1100000 | 2^5 * 3
%e、。21 | 115 | 1110011 | 5 * 23
%e、。22 | 130 | 10000010 | 2 * 5 * 13
%e、。23 | 132 | 10000100 | 2^2 * 3 * 11
%e、。24 | 136 | 10001000 | 2^3 * 17
%e。25 | 144 | 10010000 | 2^4 * 3^2 .
%t选择[Range[640],FactorInteger[#][[1,1]]==数字计数[#,2,1]&](*_Amiram Eldar_,2023年7月24日*)
%o(哈斯克尔)
%o a262481 n=a262481_list!!(n-1)
%o a262481_list=过滤器(\x->a000120 x==a020639 x)[1..]
%o(PARI)isok(n)=(n==1)||(hammingweight(n)==因子(n)[1,1]);\\_米歇尔·马库斯,2015年9月29日
%Y参考A000120、A020639、A007088。
%A052294的Y子序列。
%K nonn,基础
%O 1,2号机组
%A _Reinhard Zumkeller,2015年9月24日
|