%I #22 May 20 2021 09:43:02
%S 1,2,2,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,
%T 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,
%U 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
%N a(1) = 1, a(n) = a(floor(square root(n))) + 1 for n > 1.
%C a(n) = A010096(n) until n = 255, but 5 = a(256) <> A010096(256) = 4.
%C The least k such that a(k)=n for n >= 2 is given by k = 2^(2^(n-2)) so the closed form for a(n) follows. - _Benoit Cloitre_, Apr 28 2005
%F a(1)=1; for n >= 2, a(n) = floor(log(4*log(n)/log(2))/log(2)). - _Benoit Cloitre_, Apr 28 2005
%F Equivalently, a(n) = 2 + floor(log_2(log_2(n))) for n > 1. - _Charles R Greathouse IV_, Dec 19 2011
%o (PARI) a(n)=if(n<2,1,floor(log(4*log(n)/log(2))/log(2)))
%o (Haskell)
%o a063510 1 = 1
%o a063510 n = a063510 (a000196 n) + 1
%o -- _Reinhard Zumkeller_, Mar 16 2012
%Y Cf. A010096.
%Y Cf. A000196.
%K easy,nonn
%O 1,2
%A _Reinhard Zumkeller_, Jul 30 2001
|