login
Number of 1's in binary expansion(sum of digits(n^n)).
0

%I #6 Dec 15 2017 17:36:44

%S 1,1,2,3,3,4,3,3,4,1,3,4,4,3,4,3,3,4,7,5,5,3,3,4,5,4,6,4,5,6,4,5,6,5,

%T 2,4,5,3,4,3,4,6,5,4,4,3,6,5,5,5,6,5,6,6,6,5,4,5,6,6,5,5,8,7,5,4,4,5,

%U 7,3,7,5,5,7,8,4,5,8,6,5,6,7,5,7,4,3,8,6,4,4,5,5,4,5,7,8,6,6,5,1,3,6,5,7,8

%N Number of 1's in binary expansion(sum of digits(n^n)).

%t Table[Count[IntegerDigits[Total[IntegerDigits[n^n]],2],1],{n,110}] (* _Harvey P. Dale_, Oct 24 2016 *)

%Y Cf. A000120, A007953.

%K base,easy,nonn

%O 1,3

%A _Jason Earls_, Jun 29 2004