login
Evil squares.
6

%I #30 Dec 10 2019 04:14:35

%S 0,9,36,144,169,225,441,576,676,729,900,1369,1764,2025,2209,2304,2704,

%T 2809,2916,3249,3600,3721,3969,4761,5329,5476,6561,6889,7056,8100,

%U 8649,8836,9216,9801,10816,11025,11236,11449,11664,11881,12321,12996,13225,14161,14400,14884,15129,15876,17689,18769,19044,19881,21316,21904

%N Evil squares.

%C Numbers n^2 such that A159918(n) is even.

%C Intersection of A000290 and A001969.

%H Amiram Eldar, <a href="/A231431/b231431.txt">Table of n, a(n) for n = 1..10000</a>

%F Conjecture: a(n) ~ 4n^2. - _Charles R Greathouse IV_, Nov 20 2013

%e 36 is in the sequence because 36 = 6^2 and 36 in base 2 is 100100, having an even number of 1's.

%t Select[Range[0,150]^2,EvenQ[DigitCount[#,2,1]]&] (* _Harvey P. Dale_, Nov 23 2015 *)

%o (PARI) is(n)=hammingweight(n)%2==0 && issquare(n) \\ _Charles R Greathouse IV_, Nov 20 2013

%Y Cf. A000290, A125498.

%K nonn,base,easy

%O 1,2

%A _Juri-Stepan Gerasimov_, Nov 20 2013

%E Corrected and extended by _Harvey P. Dale_, Nov 23 2015