A094695 Numbers having in binary representation fewer ones than in their squares.

5, 9, 10, 11, 13, 17, 18, 19, 20, 21, 22, 25, 26, 27, 29, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 49, 50, 51, 52, 53, 54, 55, 57, 58, 59, 61, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 93, 97, 98, 99

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Formula

A000120(a(n)) < A000120(A000290(a(n))).

Mathematica

Select[Range[100], DigitCount[#, 2, 1]<DigitCount[#^2, 2, 1]&] (* Harvey P. Dale, May 29 2017 *)

Crossrefs

Cf. A000120, A001737, A007088, A077436, A094694, A159918.

Sequence in context: A300669 A166934 A257739 * A268412 A043682 A335882

Adjacent sequences: A094692 A094693 A094694 * A094696 A094697 A094698

Keyword

nonn,base

Author

Reinhard Zumkeller, May 20 2004

Status

approved