A094694 Numbers having in binary representation more 1s than their squares.

23, 46, 47, 92, 94, 95, 111, 184, 188, 190, 191, 222, 223, 367, 368, 376, 380, 382, 383, 415, 444, 446, 447, 479, 727, 734, 736, 752, 760, 764, 766, 767, 830, 831, 887, 888, 892, 894, 895, 958, 959, 1451, 1454, 1468, 1471, 1472, 1503, 1504, 1520, 1528

Offset

1,1

Comments

A000120(a(n)) > A000120(A000290(a(n))).

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

Cf. A077436, A094695, A007088, A001737, A064399, A236514, A351149.

Sequence in context: A323046 A025022 A260750 * A164010 A132682 A048845

Adjacent sequences: A094691 A094692 A094693 * A094695 A094696 A094697

Keyword

nonn,base

Author

Reinhard Zumkeller, May 20 2004

Status

approved