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 A187111 #10 Feb 01 2019 19:57:45
%S A187111 1,2,-1,3,-11,44,-187,827,-3751,17313,-81004,383390,-1833029,8843224,
%T A187111 -43007753,210670655,-1038597645,5149654796,-25664518105,128493771585,
%U A187111 -645988558986,3259776393676,-16505191207192,83828620957326,-426961815072785
%N A187111 Series inversion of A007296.
%C A187111 The generating function A007296(x) = x - 2*x^2 + 5*x^3 - 15*x^4 + ... is a reversion of A008578(x) = x + 2*x^2 + 3*x^3 + ... with A007296(A008578(x))=x. The ordinary generating function A(x) = x/(x - 2*x + 5*x^2 - 15*x^3 + ...) = 1 + 2*x - x^2 + ... of this sequence here obeys A008578(x)=x*A(A008578(x)).
%p A187111 read("transforms") ;
%p A187111 Lp := [ 0,1,seq(ithprime(i),i=1..25) ] ;
%p A187111 a007296 := REVERT(Lp) ;
%p A187111 a007296x := add( op(i,a007296)*x^i,i=1..nops(a007296)) ;
%p A187111 a187111x := taylor(x/a007296x ,x=0,nops(a007296)+1);
%p A187111 for n from 0 to nops(a007296)-1 do printf("%d,",coeftayl(a187111x,x=0,n)) ; end do; # _R. J. Mathar_, Mar 29 2011
%K A187111 sign,less
%O A187111 0,2
%A A187111 _Vladimir Kruchinin_, Mar 05 2011