A186191 - OEIS

%I #16 Nov 08 2024 17:39:49

%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(9)=9 since Tetra(9)=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}]

%t IntegerDigits[#][[1]]&/@LinearRecurrence[{1,1,1,1},{1,1,1,1},120] (* _Harvey P. Dale_, Nov 08 2024 *)

%Y Cf. A000288.

%K nonn,base

%O 0,5

%A _Carmine Suriano_, Feb 14 2011

%E Offset changed by _Georg Fischer_, Jun 26 2024