OFFSET
0,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..200
FORMULA
a(n) = Sum_{k=0..n} Stirling1(n, k)*A003725(k). - Vladeta Jovovic, Oct 02 2003
MATHEMATICA
Function[ n, Series[ (1+x)^(1/(1+x)), {x, 0, n} ]//(Table[ SeriesCoefficient[ #, i ]*i!, {i, 0, n} ])& ][ 20 ]
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 *)
NestList[Factor[D[#1, x]] &, x^(1/x), 22] /. (x -> 1) (* Robert G. Wilson v, Feb 03 2013 *)
CROSSREFS
KEYWORD
sign
AUTHOR
STATUS
approved