OFFSET
0,3
COMMENTS
A000120(a(n)) = n.
LINKS
Donovan Johnson, Table of n, a(n) for n = 0..60
FORMULA
a(n) = A231897(n)^2. - Hugo Pfoertner, Dec 27 2022
MATHEMATICA
a = Table[0, {30}]; Do[c = Count[IntegerDigits[n^2, 2], 1]; If[ a[[c + 1]] == 0, a[[c + 1]] = n^2; Print[c, " = ", n^2]], {n, 1, 360000}] (* Robert G. Wilson v, Dec 03 2003 *)
Join[{0}, With[{s=DigitCount[Range[400000]^2, 2, 1]}, Flatten[Table[ Position[ s, _?(#==n&), 1, 1], {n, 30}]]]^2] (* Harvey P. Dale, Mar 03 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Nov 20 2003
EXTENSIONS
More terms from Robert G. Wilson v, Dec 03 2003
Offset corrected by Donovan Johnson, May 01 2012
STATUS
approved