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)!;
A371227
E.g.f. satisfies A(x) = 1 - x*log(1 - x*A(x)^2).
Original entry on oeis.org
1, 0, 2, 3, 56, 390, 6384, 92400, 1812768, 38565072, 949927680, 25934040000, 783458550720, 25909868761920, 930720395219328, 36108805836317760, 1504050682102456320, 66964478742976711680, 3173178938051223889920, 159461567895099436047360
Offset: 0
-
a(n) = n!*sum(k=0, n\2, (2*n-2*k)!*abs(stirling(n-k, k, 1))/((n-k)!*(2*n-3*k+1)!));
A371229
E.g.f. satisfies A(x) = 1 - x*A(x)^2*log(1 - x*A(x)^2).
Original entry on oeis.org
1, 0, 2, 3, 104, 630, 19944, 259560, 8718464, 185086944, 6914815200, 206059083120, 8700740615808, 332779651158240, 15916427365716864, 738672634596405600, 39847940942657495040, 2163098542598925281280, 130682368989193123952640
Offset: 0
-
a(n) = n!*(2*n)!*sum(k=0, n\2, abs(stirling(n-k, k, 1))/((n-k)!*(2*n-k+1)!));
A371269
E.g.f. satisfies A(x) = 1 + x*A(x) * (exp(x*A(x)^2) - 1).
Original entry on oeis.org
1, 0, 2, 3, 76, 485, 10746, 146167, 3552312, 75642345, 2150551990, 61400333291, 2061654862356, 72804918721405, 2858153637295698, 119363732105632575, 5395737275060765296, 259270058379207421649, 13294348104095211012462, 721446934706871966578899
Offset: 0
-
a(n) = n!*sum(k=0, n\2, (2*n-k)!*stirling(n-k, k, 2)/((n-k)!*(2*n-2*k+1)!));
Showing 1-4 of 4 results.