A331617
E.g.f.: exp(1 / (1 - arctan(x)) - 1).
Original entry on oeis.org
1, 1, 3, 11, 49, 265, 1683, 12035, 95169, 832337, 7998467, 83033403, 922112305, 10978263257, 139956480467, 1889161216179, 26798589518593, 401123509624737, 6346168059440515, 105040097140558699, 1805102151607613361, 32421358229074354601
Offset: 0
-
nmax = 21; CoefficientList[Series[Exp[1/(1 - ArcTan[x]) - 1], {x, 0, nmax}], x] Range[0, nmax]!
A191700[0] = 1; A191700[n_] := A191700[n] = Sum[Binomial[n, k] If[OddQ[k], (-1)^Boole[IntegerQ[(k + 1)/4]] (k - 1)!, 0] A191700[n - k], {k, 1, n}]; a[0] = 1; a[n_] := a[n] = Sum[Binomial[n - 1, k - 1] A191700[k] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 21}]
-
seq(n)={Vec(serlaplace(exp(1/(1 - atan(x + O(x*x^n))) - 1)))} \\ Andrew Howroyd, Jan 22 2020
A331615
E.g.f.: exp(1 / (1 - arcsin(x)) - 1).
Original entry on oeis.org
1, 1, 3, 14, 85, 640, 5703, 58760, 685353, 8925632, 128231627, 2014061568, 34312150525, 630043097216, 12400033125647, 260357810321664, 5807790344591953, 137144754146230272, 3417248676737769619, 89590823377278496768, 2465026658283881339301
Offset: 0
-
nmax = 20; CoefficientList[Series[Exp[1/(1 - ArcSin[x]) - 1], {x, 0, nmax}], x] Range[0, nmax]!
A189780[0] = 1; A189780[n_] := A189780[n] = Sum[Binomial[n, k] If[OddQ[k], ((k - 2)!!)^2, 0] A189780[n - k], {k, 1, n}]; a[0] = 1; a[n_] := a[n] = Sum[Binomial[n - 1, k - 1] A189780[k] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 20}]
-
seq(n)={Vec(serlaplace(exp(1/(1 - asin(x + O(x*x^n))) - 1)))} \\ Andrew Howroyd, Jan 22 2020
A331618
E.g.f.: exp(1 / (1 - arctanh(x)) - 1).
Original entry on oeis.org
1, 1, 3, 15, 97, 785, 7523, 83615, 1053281, 14838177, 230832867, 3929944623, 72633052545, 1447981700529, 30960823851267, 706676217730239, 17145815895371073, 440594781536265537, 11952178787661839427, 341291300477569866831, 10231558345117929439521
Offset: 0
-
nmax = 20; CoefficientList[Series[Exp[1/(1 - ArcTanh[x]) - 1], {x, 0, nmax}], x] Range[0, nmax]!
A296676[0] = 1; A296676[n_] := A296676[n] = Sum[Binomial[n, k] If[OddQ[k], (k - 1)!, 0] A296676[n - k], {k, 1, n}]; a[0] = 1; a[n_] := a[n] = Sum[Binomial[n - 1, k - 1] A296676[k] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 20}]
-
seq(n)={Vec(serlaplace(exp(1/(1 - atanh(x + O(x*x^n))) - 1)))} \\ Andrew Howroyd, Jan 22 2020
Showing 1-3 of 3 results.
Comments