This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A108168 #8 Sep 02 2024 21:52:49
%S A108168 0,1,2,3,5,9,12,21,37,65,114,200,265,465,816,1432,2513,4410,5842,
%T A108168 10252,17991,31572,55405,97229,128801,226030,396655,696081,1221537,
%U A108168 2143648,3761840,4983377,8745217,15346786,26931732,47261895,82938844,109870576
%N A108168 Padovan sequence for indices of the Beatty sequence of the tribonacci constant.
%C A108168 Limit[a(n)/a(n-1),n->Infinity]={1.32472, 1.75488, 1.75488, 1.75488, 1.75488, 1.75488}
%F A108168 a(n) = A000931(3+A158919(n)). - _R. J. Mathar_, Sep 11 2011
%t A108168 NSolve[x^3 - x^2 - x - 1 = 0, x] beta = 1.8392867552141612 F[1] = 0; F[2] = 1; F[3] = 1; F[n__] := F[n] = F[n - 2] + F[n - 3] a1 = Table[F[Floor[beta*n]], {n, 1, 50}] Table[N[a1[[n]]/a1[[n - 1]]], {n, 3, Length[a1]}]
%Y A108168 Cf. A000931.
%K A108168 nonn,uned
%O A108168 1,3
%A A108168 _Roger L. Bagula_, Jun 13 2005