|
%I #15 Feb 09 2017 11:50:54
%S 1,1,1,3,5,9,1,3,5,1,1,3,6,1,2,4,7,1,2,4,8,1,2,5,9,1,3,6,1,2,3,6,1,2,
%T 4,7,1,2,4,9,1,3,5,1,1,3,6,1,2,4,7,1,2,4,8,1,2,5,9,1,3,6,1,2,3,6,1,2,
%U 4,7,1,2,4,9,1,3,5,1,1,3,6,1,2,4,7,1,2,4,8,1,2,5,9,1,3,6,1,2,3,6,1,2,4
%N First digit of tribonacci sequence A000213.
%C Sequence obeys the Benford law about distribution of first digit d in a sequence: P(d) = log_10(1+1/d).
%H <a href="/index/Be#Benford">Index entries for sequences related to Benford's law</a>
%e a(10) = 1 since Trib(10) = 105.
%t t = {1,1,1}; Do[AppendTo[t, t[[-1]] + t[[-2]] + t[[-3]]], {100}]; Table[IntegerDigits[i][[1]], {i, t}]
%Y Cf. A000213.
%K nonn,base
%O 1,4
%A _Carmine Suriano_, Feb 14 2011
|
