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