|
%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
|
