|
%I #16 Sep 08 2022 08:46:13
%S 1,3,5,9,12,16,20,25,29,34,39,44,49,54,59,65,70,76,81,87,93,99,105,
%T 111,117,123,129,135,141,148,154,161,167,173,180,187,193,200,207,213,
%U 220,227,234,241,248,255,262,269,276,283,290,297,304,311,318,326,333
%N Number of digits in n^n when written in binary.
%F a(n) = floor(n*log(n)/log(2)) + 1.
%F a(n) = A070939(A000312(n)). - _Michel Marcus_, Jul 03 2015
%e For n=3, 3^3=11011_2 so a(3)=5.
%t Array[IntegerLength[#^#, 2] &, 60] (* or *)
%t Array[Floor[# Log[2, #]] + 1 &, 60] (* _Michael De Vlieger_, Jul 03 2015 *)
%o (PARI) a(n) = #binary(n^n); \\ _Michel Marcus_, Jul 03 2015
%o (Magma) [Floor(n*Log(n)/Log(2)) + 1: n in [1..70]]; // _Vincenzo Librandi_, Jul 15 2015
%Y Cf. A000312, A066022, A070939.
%K nonn,easy,base
%O 1,2
%A _Adam J.T. Partridge_, Jun 25 2015
|
