|
%I #13 Jul 24 2023 06:04:35
%S 5,9,10,11,13,17,18,19,20,21,22,25,26,27,29,33,34,35,36,37,38,39,40,
%T 41,42,43,44,45,49,50,51,52,53,54,55,57,58,59,61,65,66,67,68,69,70,71,
%U 72,73,74,75,76,77,78,80,81,82,83,84,85,86,87,88,89,90,93,97,98,99
%N Numbers having in binary representation fewer ones than in their squares.
%H Amiram Eldar, <a href="/A094695/b094695.txt">Table of n, a(n) for n = 1..10000</a>
%F A000120(a(n)) < A000120(A000290(a(n))).
%t Select[Range[100],DigitCount[#,2,1]<DigitCount[#^2,2,1]&] (* _Harvey P. Dale_, May 29 2017 *)
%Y Cf. A000120, A001737, A007088, A077436, A094694, A159918.
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, May 20 2004
|
