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 A100034 #16 Feb 02 2018 17:00:34
%S A100034 0,1,4,20,115,719,4766,32973,235381,1721159,12826228,97055181,
%T A100034 743724984,5759636510,45007066269,354426847597,2809934352700,
%U A100034 22409533673568,179655930440464,1447023384581029,11703780079612453,95020085893954917,774088023431472074
%N A100034 Bisection of A000081 (even part).
%H A100034 Alois P. Heinz, <a href="/A100034/b100034.txt">Table of n, a(n) for n = 0..400</a>
%p A100034 with(numtheory):
%p A100034 b:= proc(n) option remember; local d, j; `if`(n<2, n,
%p A100034 (add(add(d*b(d), d=divisors(j))*b(n-j), j=1..n-1))/(n-1))
%p A100034 end:
%p A100034 a:= n-> b(2*n):
%p A100034 seq(a(n), n=0..50); # _Alois P. Heinz_, May 16 2013
%t A100034 b[n_] := b[n] = If[n <= 1, n, Sum[Sum[d*b[d], {d, Divisors[j]}]*b[n-j], {j, 1, n-1}]/(n-1)]; a[n_] := b[2*n]; Table[a[n], {n, 0, 30}] (* _Jean-François Alcover_, Mar 19 2014, after _Alois P. Heinz_ *)
%Y A100034 Cf. A000081, A100427, A299098.
%K A100034 nonn,easy
%O A100034 0,3
%A A100034 _N. J. A. Sloane_, Nov 20 2004
%E A100034 More terms from _Joshua Zucker_, May 12 2006