A085023 - OEIS

%I #7 Apr 27 2015 12:26:18

%S 1,1,3,13,97,981,12331,187153,3319233,67362697,1540796851,39256807701,

%T 1102344130273,33822265578973,1125785761963227,40407886961046361,

%U 1555858721974047361,63972335301256871313,2797676940942967706083

%N E.g.f. satisfies exp(x*sum(n>=0, floor(a(n)/n!)*x^n)) = sum(n>=0, a(n)*x^n/n!).

%C Floor(a(n)/n!) = A085022(n).

%e exp(x*(1 + x + floor(3/2!)*x^2 + floor(13/3!)*x^3 + floor(97/4!)*x^4 + ...)) = 1 + x + (3/2!)*x^2 + (13/3!)*x^3 + (97/4!)*x^4 + ...

%o (PARI) {a(n)=local(A); if(n<0,0,A=1+O(x); for(m=1,n,A=Pol(A)+x^m*(floor(polcoeff(exp(x*A),m))+O(x)); ); n!*polcoeff(exp(x*A),n))}

%Y Cf. A085022, A085295.

%K nonn

%O 0,3

%A _Paul D. Hanna_, Jun 18 2003

%E Example added by _Vaclav Kotesovec_, Apr 27 2015