%I A118655
%S A118655 1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384,32768,56953,
%T A118655 65536,113906,131072,227812,262144,455624,524288,911248,1048576,1822496,
%U A118655 1830651,2097152,3644992,3661302,4194304,5502457,7289984,7322604
%N A118655 Numbers n such that Hamming weight of n equals Hamming weight of n^3.
%C A118655 A000079(n) is a subsequence because the Hamming weight of any A000079(n) 
               is 1 and cubing such a number just adds binary zeros. A077436 is 
               the sequence when the a(n) is squared, not cubed as here.
%F A118655 A000120[a(n)]=A000120[a(n)^3]
%o A118655 (PARI) bitcnt(n)= { local(bitv,bitl) ; bitv=binary(n) ; bitvl=matsize(bitv) 
               ; return(sum(i=1,bitvl[2],bitv[i])) ; } { for(i=1,8000000, if(bitcnt(i)==bitcnt(i^3), 
               print1(i,",") ; ) ; ) ; }
%Y A118655 Cf. A077436, A000079, A000120.
%Y A118655 Sequence in context: A008863 A145117 A133025 this_sequence A155559 A166687 
               A011782
%Y A118655 Adjacent sequences: A118652 A118653 A118654 this_sequence A118656 A118657 
               A118658
%K A118655 easy,nonn
%O A118655 1,2
%A A118655 R. J. Mathar (mathar(AT)strw.leidenuniv.nl), May 18 2006