|
%I #13 Aug 24 2017 04:10:01
%S 1,1,1,3,11,57,354,2657,23001,227364,2517898,30934340,417240592,
%T 6132179622,97529525040,1669193368918,30588551262442,597618281777224,
%U 12400582017332944,272361147076466888,6312733766495858856,153984431772484535840,3943242146803039347776
%N E.g.f.: 1-log(1-log(1-log(1-x))).
%F a(n) ~ (n-1)! / (1-exp(1-exp(1)))^n. - _Vaclav Kotesovec_, Aug 24 2017
%e E.g.f.: A(x) = 1 + x + x^2/2! + 3*x^3/3! + 11*x^4/4! + 57*x^5/5! + 354*x^6/6! +...
%t With[{nn=30},CoefficientList[Series[1-Log[1-Log[1-Log[1-x]]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jun 23 2017 *)
%o (PARI) {a(n)=n!*polcoeff(1-log(1-log(1-log(1-x +x*O(x^n)))),n)}
%o for(n=0,25,print1(a(n),", "))
%K nonn
%O 0,4
%A _Paul D. Hanna_, Sep 24 2012
|
