cp's OEIS Frontend

A063510 a(1) = 1, a(n) = a(floor(square root(n))) + 1 for n > 1.

%I A063510 #24 Nov 28 2024 23:53:12
%S A063510 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 A063510 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 A063510 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 A063510 a(1) = 1, a(n) = a(floor(square root(n))) + 1 for n > 1.
%C A063510 a(n) = A010096(n) until n = 255, but 5 = a(256) <> A010096(256) = 4.
%C A063510 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 A063510 a(1)=1; for n >= 2, a(n) = floor(log(4*log(n)/log(2))/log(2)). - _Benoit Cloitre_, Apr 28 2005
%F A063510 Equivalently, a(n) = 2 + floor(log_2(log_2(n))) for n > 1. - _Charles R Greathouse IV_, Dec 19 2011
%o A063510 (PARI) a(n)=if(n<2,1,floor(log(4*log(n)/log(2))/log(2)))
%o A063510 (PARI) a(n)=if(n<2, 1, 2+logint(logint(n,2),2)) \\ _Charles R Greathouse IV_, Nov 28 2024
%o A063510 (Haskell)
%o A063510 a063510 1 = 1
%o A063510 a063510 n = a063510 (a000196 n) + 1
%o A063510 -- _Reinhard Zumkeller_, Mar 16 2012
%Y A063510 Cf. A010096, A000196.
%K A063510 easy,nonn
%O A063510 1,2
%A A063510 _Reinhard Zumkeller_, Jul 30 2001