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 A084209 #6 Jul 26 2018 18:43:51
%S A084209 1,1,-3,15,-85,523,-3367,22371,-152104,1052568,-7385756,52410754,
%T A084209 -375382683,2709626768,-19688989762,143885743077,-1056748051734,
%U A084209 7795106129504,-57723430872280,428923406694402
%N A084209 G.f. A(x) defined by: A(x)^9 consists entirely of integer coefficients between 1 and 9 (A083949); A(x) is the unique power series solution with A(0)=1.
%C A084209 Limit a(n)/a(n+1) --> r = -0.126715878986521 where A(r)=0.
%t A084209 kmax = 20;
%t A084209 A[x_] = Sum[a[k] x^k, {k, 0, kmax}];
%t A084209 coes = CoefficientList[A[x]^9 + O[x]^(kmax + 1), x];
%t A084209 r = {a[0] -> 1, a[1] -> 1};
%t A084209 coes = coes /. r;
%t A084209 Do[r = Flatten @ Append[r, Reduce[1 <= coes[[k]] <= 9, a[k-1], Integers] // ToRules];
%t A084209 coes = coes /. r, {k, 3, kmax + 1}];
%t A084209 Table[a[k], {k, 0, kmax}] /. r (* _Jean-François Alcover_, Jul 26 2018 *)
%Y A084209 Cf. A083949, A084202-A084208, A084210-A084212.
%K A084209 sign
%O A084209 0,3
%A A084209 _Paul D. Hanna_, May 20 2003