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

Author

Reinhard Zumkeller, May 20 2004

Keywords

• nonn
• base

Links

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

Crossrefs

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

Programs

Mathematica

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

Formula

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