|
%I #12 Sep 08 2022 08:46:23
%S 0,1,1,6,1,6,6,7,1,9,6,10,6,11,7,12,1,10,9,9,6,11,10,14,6,11,11,15,7,
%T 15,12,15,1,10,10,13,9,11,9,13,6,16,11,15,10,21,14,18,6,15,11,13,11,
%U 13,15,19,7,17,15,14,12,14,15,18,1,10,10,14,10,18,13,18
%N Number of ones in binary expansion n^5.
%C The binary weight of n^5.
%F a(n) = A000120(A000584(n)).
%t Table[DigitCount[n^5, 2][[1]], {n, 0, 100}]
%o (Magma) [&+Intseq(n^5, 2): n in [0..79]];
%o (PARI) a(n) = hammingweight(n^5); \\ _Michel Marcus_, Nov 28 2018
%Y Cf. A000120, A000584, A118738, A192085.
%K nonn,base
%O 0,4
%A _Vincenzo Librandi_, Nov 28 2018
|
