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 A008405 #23 May 10 2013 12:43:51
%S A008405 1,1,-2,3,4,-90,786,-5670,34784,-136584,-824760,33137280,-633666648,
%T A008405 10089623544,-145675230960,1910939579640,-21215723677440,
%U A008405 136130901474240,2280768466608576,-135531682778927808,4380044490023909760,-119144344839822570240
%N A008405 n-th derivative of x^(1/x) at x=1.
%H A008405 Vincenzo Librandi, <a href="/A008405/b008405.txt">Table of n, a(n) for n = 0..200</a>
%F A008405 a(n) = Sum_{k=0..n} Stirling1(n, k)*A003725(k). - _Vladeta Jovovic_, Oct 02 2003
%t A008405 Function[ n, Series[ (1+x)^(1/(1+x)), {x, 0, n} ]//(Table[ SeriesCoefficient[ #, i ]*i!, {i, 0, n} ])& ][ 20 ]
%t A008405 a[n_] := Sum[ StirlingS1[n, k]*Sum[ (-j)^(k-j)*Binomial[k, j], {j, 0, k}], {k, 1, n}]; a[0] = 1; Table[a[n], {n, 0, 21}] (* _Jean-François Alcover_, Nov 28 2012, after _Vladeta Jovovic_ *)
%t A008405 NestList[Factor[D[#1, x]] &, x^(1/x), 22] /. (x -> 1) (* _Robert G. Wilson v_, Feb 03 2013 *)
%K A008405 sign
%O A008405 0,3
%A A008405 _Olivier Gérard_