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 A009009 #35 Jul 21 2018 20:26:56 %S A009009 1,1,9,177,6545,387649,33646041,4025701617,635120351777, %T A009009 127753094128897,31911422805749673,9691219439564235441, %U A009009 3516474983468155702193,1502487398886128051614273,746659439867912626958616441,427003792367575880943003380721 %N A009009 Expansion of e.g.f.: 1/cos(sinh(x)) (even-indexed coefficients only). %H A009009 G. C. Greubel, <a href="/A009009/b009009.txt">Table of n, a(n) for n = 0..200</a> (terms 0..50 from Vincenzo Librandi) %F A009009 a(n) ~ (2*n)! * 4 / (sqrt(4+Pi^2) * (log((Pi+sqrt(4+Pi^2))/2))^(2*n+1)). - _Vaclav Kotesovec_, Jan 22 2015 %t A009009 f[x_] := Sec@Sinh[x]; Table[Derivative[2*n][f][0], {n, 0, 15}] (* _Arkadiusz Wesolowski_, Aug 18 2012 *) %t A009009 With[{nn=30}, Take[CoefficientList[Series[1/Cos[Sinh[x]], {x,0,nn}], x] Range[0,nn]!, {1,-1,2}]] (* _Harvey P. Dale_, Oct 09 2012 *) %o A009009 (PARI) x='x+O('x^50); v=Vec(serlaplace(1/cos(sinh(x)))); vector(#v\2,n,v[2*n-1]) \\ _G. C. Greubel_, Jul 21 2018 %K A009009 nonn %O A009009 0,3 %A A009009 _R. H. Hardin_ %E A009009 Extended and signs tested by _Olivier Gérard_, Mar 15 1997 %E A009009 a(14), a(15) from _Arkadiusz Wesolowski_, Aug 18 2012