OFFSET
1,4
LINKS
MATHEMATICA
length = 20; Range[length]! InverseSeries[Sum[PartitionsQ[n] x^n/n!, {n, 1, length}] + O[x]^(length+1)][[3]] (* Vladimir Reshetnikov, Nov 07 2015 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Christian G. Bower, Nov 15 1999
STATUS
approved