login
a(n) = log_2(A060723(n)).
5

%I #12 Jun 03 2018 11:10:26

%S 0,0,0,1,0,2,2,3,0,4,4,5,3,6,6,7,3,8,8,9,7,10,10,11,8,12,12,13,11,14,

%T 14,15,10,16,16,17,15,18,18,19,16,20,20,21,19,22,22,23,19,24,24,25,23,

%U 26,26,27,24,28,28,29,27,30,30,31,25,32,32,33,31,34,34,35,32

%N a(n) = log_2(A060723(n)).

%t Table[IntegerExponent[Denominator[Simplify[((1/2 (Sqrt[3] + 1))^x - (1/2 (Sqrt[3] - 1))^x Cos[Pi x])/Sqrt[3]]], 2], {x, 0, 72}] (* _Peter Luschny_, Jun 02 2018 *)

%Y Cf. A060723, A305491.

%K nonn

%O 0,6

%A _Vladeta Jovovic_, Apr 24 2001

%E Data corrected by _Peter Luschny_, Jun 02 2018