A379447 - OEIS

%I #6 Dec 26 2024 12:34:56

%S 1,1,8,1,19,27,68,1,128,105,209,120,320,266,442,1,584,524,774,476,

%T 1006,833,1188,477,1486,1248,1746,1066,2068,1733,2365,1,2735,2328,

%U 3134,1982,3598,3085,4062,1823,4415,3937,5038,3309,5571,4808,6137,1790,6794,5768,7381

%N a(n) is the number of ones in the binary expansion of (n^n)^n.

%F a(2^k) = 1.

%e a(3) = 8: (3^3)^3 = 27^3 = 19683 = 100110011100011_2 which has 8 ones.

%t Array[DigitCount[#^(#^2), 2, 1] &, 50] (* _Michael De Vlieger_, Dec 26 2024 *)

%o (PARI) a379447(n) = hammingweight((n^n)^n)

%Y Cf. A000120, A002489, A379448.

%K nonn,base

%O 1,3

%A _Hugo Pfoertner_, Dec 26 2024