OFFSET
1,1
LINKS
Carl R. White, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[1600], DigitCount[#, 2, 1] > DigitCount[#^2, 2, 1] &] (* Harvey P. Dale, Mar 24 2012 *)
PROG
(PARI) is(n)=hammingweight(n)>hammingweight(n^2) \\ Charles R Greathouse IV, Jan 27 2014
(Python) print([k for k in range(0, 1530) if bin(k)[2:].count("1") > bin(k**2)[2:].count("1")]) # Karl-Heinz Hofmann, Feb 07 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, May 20 2004
STATUS
approved