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 A084210 #6 Jul 26 2018 18:42:54
%S A084210 1,1,-4,25,-173,1292,-10105,81565,-673691,5662878,-48263038,415950272,
%T A084210 -3617999891,31714089336,-279828926113,2483097203637,-22143011361045,
%U A084210 198317403322755
%N A084210 G.f. A(x) defined by: A(x)^10 consists entirely of integer coefficients between 1 and 10 (A083950); A(x) is the unique power series solution with A(0)=1.
%C A084210 Limit a(n)/a(n+1) --> r = -0.104430987675729 where A(r)=0.
%t A084210 kmax = 20;
%t A084210 A[x_] = Sum[a[k] x^k, {k, 0, kmax}];
%t A084210 coes = CoefficientList[A[x]^10 + O[x]^(kmax + 1), x];
%t A084210 r = {a[0] -> 1, a[1] -> 1};
%t A084210 coes = coes /. r;
%t A084210 Do[r = Flatten @ Append[r, Reduce[1 <= coes[[k]] <= 10, a[k - 1], Integers] // ToRules];
%t A084210 coes = coes /. r, {k, 3, kmax + 1}];
%t A084210 Table[a[k], {k, 0, kmax}] /. r (* _Jean-François Alcover_, Jul 26 2018 *)
%Y A084210 Cf. A083950, A084202-A084209, A084211, A084212.
%K A084210 sign
%O A084210 0,3
%A A084210 _Paul D. Hanna_, May 20 2003