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 A277499 #11 Nov 11 2017 12:06:01 %S A277499 0,1,2,8,52,476,5646,82368,1426888,28623376,652516090,16660233600, %T A277499 470930272572,14598765522368,492441140292934,17955574113204224, %U A277499 703714660937658128,29500170665998713088,1317136516654501334898,62399954043306802391040 %N A277499 E.g.f.: -sin(LambertW(-x)). %H A277499 Robert Israel, <a href="/A277499/b277499.txt">Table of n, a(n) for n = 0..387</a> %F A277499 a(n) ~ cos(1) * n^(n-1). %p A277499 S:= series(-sin(LambertW(-x)),x,31): %p A277499 seq(coeff(S,x,n)*n!, n=0..30); # _Robert Israel_, Oct 30 2016 %t A277499 CoefficientList[Series[-Sin[LambertW[-x]], {x, 0, 20}], x] * Range[0, 20]! %o A277499 (PARI) x='x+O('x^50); concat([0], Vec(serlaplace(-sin(lambertw(-x))))) \\ _G. C. Greubel_, Nov 08 2017 %Y A277499 Cf. A195136, A277461, A277498. %K A277499 nonn %O A277499 0,3 %A A277499 _Vaclav Kotesovec_, Oct 18 2016