%I #8 Dec 17 2022 06:50:57
%S 0,0,1,1,2,3,4,6,8,1,5,1,9,9,4,4,1,9,0,9,4,4,2,4,5,7,5,9,2,6,7,5,9,2,
%T 2,4,0,2,2,8,5,4,7,9,8,3,8,4,9,1,6,1,4,5,3,0,7,2,6,3,6,8,1,5,1,3,9,6,
%U 0,9,9,8,3,8,5,9,1,1,7,7,1,5,5,8,6,5,3,6,8,1,0,0,6,6,9,8,2,2,8,9,8
%N a(n) = floor(log(2)*((1 + sqrt(3))/2)^n) mod 10.
%t a[n_] = Log[2]*((1 + Sqrt[3])/2)^n;
%t Table[Mod[Floor[a[n]], 10], {n, 0, 100}]
%K nonn,base,easy,less
%O 0,5
%A _Roger L. Bagula_, Dec 02 2008