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 A009567 #26 Jan 22 2018 03:05:01
%S A009567 0,1,-1,2,-8,31,-136,692,-3968,25261,-176896,1351382,-11184128,
%T A009567 99680491,-951878656,9695756072,-104932671488,1202439837721,
%U A009567 -14544442556416,185185594118762,-2475749026562048,34674437196568951
%N A009567 Expansion of e.g.f.: sinh(log(1 + sin(x))).
%C A009567 |a(n)| = number of odd alternating permutations on n letters (offset 1). - _Vladeta Jovovic_, May 20 2007
%H A009567 G. C. Greubel, <a href="/A009567/b009567.txt">Table of n, a(n) for n = 0..450</a>
%F A009567 a(2*n) = A000182(n+1)/2.
%F A009567 a(2*n+1) = A012007(n+1) - 1.
%t A009567 With[{nn=30},CoefficientList[Series[Sinh[Log[1+Sin[x]]],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, May 11 2014 *)
%o A009567 (PARI) x='x+O('x^30); concat([0], Vec(serlaplace(sinh(log(1+sin(x)))))) \\ _G. C. Greubel_, Jan 21 2018
%Y A009567 Cf. A000111, A009123.
%K A009567 sign,easy
%O A009567 0,4
%A A009567 _R. H. Hardin_
%E A009567 Extended with signs by _Olivier Gérard_, Mar 15 1997
%E A009567 Definition clarified and previous Mathematica program replaced by _Harvey P. Dale_, May 11 2014