OFFSET
1,1
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)
MATHEMATICA
Select[Range[500]^2, DigitCount[#, 2, 1]==DigitCount[#, 2, 0]&] (* Harvey P. Dale, Nov 18 2014 *)
PROG
(Python)
def bal(n): return n and n.bit_length() == n.bit_count() * 2
print([s for s in (k*k for k in range(403)) if bal(s)]) # Michael S. Branicky, Jul 12 2022
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Leroy Quet, Aug 13 2009
EXTENSIONS
More terms from Sean A. Irvine, Oct 08 2009
STATUS
approved