OFFSET
1,2
FORMULA
a(n) = floor(n*log(n)/log(2)) + 1.
EXAMPLE
For n=3, 3^3=11011_2 so a(3)=5.
MATHEMATICA
Array[IntegerLength[#^#, 2] &, 60] (* or *)
Array[Floor[# Log[2, #]] + 1 &, 60] (* Michael De Vlieger, Jul 03 2015 *)
PROG
(PARI) a(n) = #binary(n^n); \\ Michel Marcus, Jul 03 2015
(Magma) [Floor(n*Log(n)/Log(2)) + 1: n in [1..70]]; // Vincenzo Librandi, Jul 15 2015
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Adam J.T. Partridge, Jun 25 2015
STATUS
approved