|
%I #5 Dec 26 2022 08:17:49
%S 1,1,2,3,5,8,3,1,5,8,6,9,4,8,8,9,9,8,7,8,9,8,8,1,9,1,4,4,0,7,0,6,2,6,
%T 0,8,4,4,1,9,9,8,9,3,0,6,8,0,6,4,6,5,2,4,9,3,3,0,0,9,6,6,5,9,6,5,4,3,
%U 7,1,6,3,3,0,0,2,4,4,4,3,7,7,4,7,0,4,5,9,0,0,2,1,0,7,0,5,6,9,5,1,4
%N This sequence needs a meaningful name.
%t M = {{0, 1}, {1, 1}}; M1 = {{0, 0}, {1/10, 0}};
%t v[0] = {1, 1};
%t v[n_] := v[n] = M.v[n - 1] + Floor[M1.v[n - 1]];
%t Table[Mod[v[n][[1]], 10], {n, 0, 100}]
%K nonn,uned
%O 0,3
%A _Roger L. Bagula_, Dec 02 2008
|
