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 A089836 #14 Mar 03 2016 11:50:35
%S A089836 2,28,704,26800,1404416,94890112,7887853568,779773444864,
%T A089836 89407927009280,11666949886007296,1707352344419336192,
%U A089836 276938622991133237248,49316570352062326636544,9565558797749164794511360,2007400581177856844629016576,453192947995950052758954115072
%N A089836 INVERT transform of A089835.
%H A089836 Alois P. Heinz, <a href="/A089836/b089836.txt">Table of n, a(n) for n = 1..150</a>
%F A089836 a(n) ~ 16^n * n! / (Pi*n^2). - _Vaclav Kotesovec_, Sep 05 2014
%p A089836 INVERT(A089835); INVERT([seq(A000108(n)*A000108(n)*(n+1)!,n=1..9)]);
%p A089836 a:= proc(n) option remember; local i; `if`(n<1, 1, add(a(n-i) *(2*i)!^2 /i!^3 /(i+1), i=1..n)) end: seq(a(n), n=1..20); # _Alois P. Heinz_, Apr 01 2009
%t A089836 a[n_] := a[n] = If[n < 1, 1, Sum[a[n - i] *(2 i)!^2 /i!^3 /(i + 1), {i, 1, n}]]; Array[a, 20] (* _Jean-François Alcover_, Mar 03 2016, adapted from Maple *)
%K A089836 nonn
%O A089836 1,1
%A A089836 _Antti Karttunen_, Dec 05 2003
%E A089836 More terms from _Alois P. Heinz_, Apr 01 2009