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 A097627 #20 Nov 16 2017 02:55:29
%S A097627 1,2,21,280,5465,134556,4051453,143810416,5884797969,272701388980,
%T A097627 14116335883661,807328717090248,50554260752606377,3440140092356781100,
%U A097627 252777268861251990045,19946622760623381708256
%N A097627 Number of rooted directed trees on n nodes with a red root.
%C A097627 Ditrees are well-colored directed trees. Well-colored means, each green vertex has at least a red child, each red vertex has no red child.
%H A097627 Vincenzo Librandi, <a href="/A097627/b097627.txt">Table of n, a(n) for n = 1..100</a>
%H A097627 C. Banderier, J.-M. Le Bars and V. Ravelomanana, <a href="https://arxiv.org/abs/math/0411138">Generating functions for kernels of digraphs</a>, arXiv:math/0411138 [math.CO], 2004.
%F A097627 a(n) = A052746(n) - A097628(n).
%F A097627 E.g.f.: -C(-C(2*x)/2), where C(x) is the e.g.f. of A000169.
%F A097627 a(n) ~ LambertW(1/2) * n^(n-1) * 2^n / (1+LambertW(1/2)). - _Vaclav Kotesovec_, Oct 08 2013
%t A097627 Rest[CoefficientList[Series[LambertW[-LambertW[-2*x]/2], {x, 0, 20}], x]* Range[0, 20]!] (* _Vaclav Kotesovec_, Oct 08 2013 *)
%o A097627 (PARI) x='x+O('x^30); Vec(serlaplace(lambertw(-lambertw(-2*x)/2))) \\ _G. C. Greubel_, Nov 15 2017
%Y A097627 Cf. A097629.
%K A097627 nonn
%O A097627 1,2
%A A097627 _Ralf Stephan_, Aug 17 2004