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 A108173 #12 Sep 24 2018 16:53:14
%S A108173 1,5,8,12,15,18,22,25,29,32,35,39,42,45,49,52,56,59,62,66,69,73,76,79,
%T A108173 83,86,89,93,96,100,103,106,110,113,117,120,123,127,130,133,137,140,
%U A108173 144,147,150,154,157,160,164,167,171,174,177,181,184,188,191,194,198,201
%N A108173 Let beta = A058265. Sequence gives a(n) = 1 + ceiling((n-1)*beta^2).
%C A108173 Tribonacci version of A007066 using positive real Pisot root of x^3-x^2-x-1.
%t A108173 NSolve[x^3 - x^2 - x - 1 == 0, x] beta = 1.8392867552141612 a[n_] = 1 + Ceiling[(n - 1)*beta^2] (* A007066 like*) aa = Table[a[n], {n, 1, 100}] (*A076662 like*) b = Table[a[n] - a[n - 1], {n, 2, Length[aa]}] F[1] = 2; F[n_] := F[n] = F[n - 1] + b[[n]] (* A000195 like *) c = Table[F[n], {n, 1, Length[b] - 1}]
%Y A108173 Cf. A007066, A076662, A000195.
%K A108173 nonn
%O A108173 1,2
%A A108173 _Roger L. Bagula_, Jun 13 2005
%E A108173 Edited by _N. J. A. Sloane_ at the suggestion of _Andrew S. Plewe_, May 31 2007