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 A174289 #8 Aug 09 2012 06:24:22
%S A174289 1,-1,1,-1,11,-137,4157,-44879,74351,-23262859,113428851,-18122193779,
%T A174289 593728889477,-17199344405209,773610521462677,-398027397442098469,
%U A174289 7730820046943979149,-6072430937404995879629,164713122370768078443379
%N A174289 Numerator of the n-th term of the inverse binomial transform of 1, 1/2, B_4, B_6, B_8,..., a modified Bernoulli sequence.
%C A174289 The denominators are in A174276. The input sequence starts 1, 1/2, 1/6, -1/30, 1/42....
%C A174289 The inverse binomial transform generates 1, -1/2, 1/6, -1/30, 11/70, -137/210, 4157/2310,...
%p A174289 read("transforms") ;
%p A174289 L := [1,1/2,seq(bernoulli(2*i),i=1..30)] ;BINOMIALi(L) ; apply(numer,%) ; # _R. J. Mathar_, Dec 02 2010
%t A174289 b[0]=1; b[1]=1/2; b[n_] := BernoulliB[2n-2]; a[n_] := Sum[(-1)^(n-k)*Binomial[n, k]*b[k], {k, 0, n}]; Table[a[n], {n, 0, 18}] // Numerator (* Jean-François Alcover_, Aug 09 2012 *)
%Y A174289 Cf. A000367, A164555, A006954.
%K A174289 frac,sign
%O A174289 0,5
%A A174289 _Paul Curtz_, Mar 15 2010