%I A077436
%S A077436 1,2,3,4,6,7,8,12,14,15,16,24,28,30,31,32,48,56,60,62,63,64,79,91,96,
%T A077436 112,120,124,126,127,128,157,158,159,182,183,187,192,224,240,248,252,
%U A077436 254,255,256,279,287,314,316,317,318,319,351,364
%N A077436 Let B(n) be the sum of binary digits of n. This sequence contains n such 
               that B(n)=B(n^2).
%C A077436 Superset of A023758.
%C A077436 A159918(a(n)) = A000120(a(n)). [From Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), 
               Apr 25 2009]
%H A077436 G. Melfi, <a href="http://www.arXiv.org/abs/math.NT/0402458">On simultaneous 
               binary expansions of n and n^2.</a>
%e A077436 The element 79 belongs to the sequence because 79=(1001111) and 79^2=(1100001100001), 
               so B(79)=B(79^2)
%t A077436 Do[If[DigitCount[n, 2, 1] != DigitCount[n^2, 2, 1], x, Print[n]], {n, 
               1, 364}]
%Y A077436 A058369. [From Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), 
               Apr 25 2009]
%Y A077436 Sequence in context: A032900 A166935 A114391 this_sequence A082752 A023758 
               A054784
%Y A077436 Adjacent sequences: A077433 A077434 A077435 this_sequence A077437 A077438 
               A077439
%K A077436 easy,nonn
%O A077436 1,2
%A A077436 Giuseppe Melfi (Giuseppe.Melfi(AT)unine.ch), Nov 30 2002