A186190 First digit of tribonacci sequence A000213.
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, 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, 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
Offset: 0
Examples
a(10) = 1 since A000213(10) = 193.
Programs
-
Mathematica
t = {1,1,1}; Do[AppendTo[t, t[[-1]] + t[[-2]] + t[[-3]]], {100}]; Table[IntegerDigits[i][[1]], {i, t}]
Extensions
Offset changed by Georg Fischer, Jun 26 2024
Comments