A371121
E.g.f. satisfies A(x) = 1 - x*A(x)*log(1 - x*A(x)).
Original entry on oeis.org
1, 0, 2, 3, 56, 330, 5724, 68460, 1351552, 24594192, 578257200, 13915923120, 389216689344, 11518744311360, 377576873670528, 13185760854520800, 497969104450867200, 19992393239486976000, 856421361373185137664, 38819358713756193292800
Offset: 0
-
a(n) = n!^2*sum(k=0, n\2, abs(stirling(n-k, k, 1))/((n-k)!*(n-k+1)!));
A371230
E.g.f. satisfies A(x) = 1 - x*A(x)^3*log(1 - x*A(x)^2).
Original entry on oeis.org
1, 0, 2, 3, 128, 750, 29964, 377160, 15795072, 329631120, 15001287120, 449174341440, 22551082739712, 885381886509120, 49302509206648320, 2391802812599316480, 147728974730632012800, 8502972330919072688640, 580806950108814502345728
Offset: 0
-
terms=19; A[]=1; Do[A[x]= 1 - x*A[x]^3*Log[1 - x*A[x]^2] + O[x]^terms//Normal, terms]; CoefficientList[Series[A[x],{x,0,terms}],x]*Range[0,terms-1]! (* Stefano Spezia, Sep 03 2025 *)
-
a(n) = n!*sum(k=0, n\2, (2*n+k)!*abs(stirling(n-k, k, 1))/(n-k)!)/(2*n+1)!;
A371120
E.g.f. satisfies A(x) = 1 + x*A(x)^3*(exp(x*A(x)) - 1).
Original entry on oeis.org
1, 0, 2, 3, 100, 545, 17946, 203497, 7194440, 132963777, 5172409630, 135827977241, 5868623306844, 200952952956769, 9665278822378466, 407661518051710665, 21789972653746494736, 1088515671895571005313, 64406426353877958253254
Offset: 0
-
a(n) = n!*sum(k=0, n\2, (n+2*k)!*stirling(n-k, k, 2)/((n-k)!*(n+k+1)!));
Showing 1-3 of 3 results.