A186189 - OEIS

%I #7 Mar 30 2012 18:39:28

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

%T 5,5,5,5,5,5,5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,

%U 6,6,6,6,6,6,6,6,6,6,6,6,6,6,7,7,7,7

%N least k such that A074286^(k)(n)=1 where a^(k)=a(a^(k-1)).

%D B. Cloitre, Experimental evidence for the Keane's conjecture, preprint 2011

%F conjecture: a(n)=floor(log(n)/log(2))+0 or +1

%o a(n)=if(n<0,0,t=n;c=1;while(A074286(t)>1,t=A074286(t);c++);c)

%K nonn

%O 1,3

%A _Benoit Cloitre_, Feb 14 2011