A367786
Expansion of e.g.f. exp(exp(4*x) - x - 1).
Original entry on oeis.org
1, 3, 25, 235, 2737, 36947, 563657, 9542715, 176920417, 3555369635, 76820077945, 1772943290763, 43469116126737, 1127040956393203, 30779951676185385, 882453651485815003, 26480355971228530369, 829522636694530362691, 27064267045022876869337, 917751849133986186857003
Offset: 0
-
nmax = 19; CoefficientList[Series[Exp[Exp[4 x] - x - 1], {x, 0, nmax}], x] Range[0, nmax]!
a[0] = 1; a[n_] := a[n] = -a[n - 1] + Sum[Binomial[n - 1, k - 1] 4^k a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 19}]
Table[Sum[(-1)^(n - k) Binomial[n, k] 4^k BellB[k], {k, 0, n}], {n, 0, 19}]
-
my(x='x+O('x^30)); Vec(serlaplace(exp(exp(4*x) - x - 1))) \\ Michel Marcus, Nov 30 2023
A367839
Expansion of e.g.f. 1/(2 + x - exp(3*x)).
Original entry on oeis.org
1, 2, 17, 183, 2679, 48903, 1071621, 27394965, 800378019, 26307021483, 960739737777, 38595129840369, 1691405818822719, 80301792637126791, 4105701241574252445, 224912022483008478141, 13142159127790633537947, 815924005186398537216483
Offset: 0
-
a_vector(n) = my(v=vector(n+1)); v[1]=1; for(i=1, n, v[i+1]=-i*v[i]+sum(j=1, i, 3^j*binomial(i, j)*v[i-j+1])); v;
A367938
Expansion of e.g.f. exp(exp(3*x) - 1 - 2*x).
Original entry on oeis.org
1, 1, 10, 55, 487, 4654, 51463, 632125, 8536492, 125279785, 1981246555, 33530245984, 603797462677, 11513675558701, 231539488842610, 4893151984630579, 108334206855000739, 2505977899186557502, 60419653270442268643, 1515077412621445514089, 39437350309301393464876, 1063746973172416765272589
Offset: 0
-
nmax = 21; CoefficientList[Series[Exp[Exp[3 x] - 1 - 2 x], {x, 0, nmax}], x] Range[0, nmax]!
a[0] = 1; a[n_] := a[n] = -2 a[n - 1] + Sum[Binomial[n - 1, k - 1] 3^k a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 21}]
Table[Sum[Binomial[n, k] (-2)^(n - k) 3^k BellB[k], {k, 0, n}], {n, 0, 21}]
-
my(x='x+O('x^30)); Vec(serlaplace(exp(exp(3*x) - 1 - 2*x))) \\ Michel Marcus, Dec 07 2023
Showing 1-3 of 3 results.