This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A094695 #13 Jul 24 2023 06:04:35 %S A094695 5,9,10,11,13,17,18,19,20,21,22,25,26,27,29,33,34,35,36,37,38,39,40, %T A094695 41,42,43,44,45,49,50,51,52,53,54,55,57,58,59,61,65,66,67,68,69,70,71, %U A094695 72,73,74,75,76,77,78,80,81,82,83,84,85,86,87,88,89,90,93,97,98,99 %N A094695 Numbers having in binary representation fewer ones than in their squares. %H A094695 Amiram Eldar, <a href="/A094695/b094695.txt">Table of n, a(n) for n = 1..10000</a> %F A094695 A000120(a(n)) < A000120(A000290(a(n))). %t A094695 Select[Range[100],DigitCount[#,2,1]<DigitCount[#^2,2,1]&] (* _Harvey P. Dale_, May 29 2017 *) %Y A094695 Cf. A000120, A001737, A007088, A077436, A094694, A159918. %K A094695 nonn,base %O A094695 1,1 %A A094695 _Reinhard Zumkeller_, May 20 2004