A354116
Product_{n>=1} 1 / (1 - x^n)^(a(n)/n!) = 1 + arcsinh(x).
Original entry on oeis.org
1, -2, -1, 4, -11, 116, -547, 960, -7751, 414384, -3258663, -6813696, -390445563, 9694641984, -964154427, 208258646016, -18431412645519, 207842731632384, -6436900596281679, -37454668211552256, 834261829219880829, 91517388643567641600, -1149793471388581053219
Offset: 1
-
nmax = 23; CoefficientList[Series[Sum[MoebiusMu[k] Log[1 + ArcSinh[x^k]]/k, {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]! // Rest
A354117
Product_{n>=1} 1 / (1 - x^n)^(a(n)/n!) = 1 + arctan(x).
Original entry on oeis.org
1, -2, -2, 8, -16, 176, -832, 384, 8192, 447744, -4228608, -15860736, -398991360, 10938421248, 44581613568, -29064658944, -17762113880064, -18092698632192, -7331825098948608, -64037289416196096, 3154526750647517184, 91791873021766533120, -1278044473427380666368
Offset: 1
-
nmax = 23; CoefficientList[Series[Sum[MoebiusMu[k] Log[1 + ArcTan[x^k]]/k, {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]! // Rest
A354118
Product_{n>=1} 1 / (1 - x^n)^(a(n)/n!) = 1 + arctanh(x).
Original entry on oeis.org
1, -2, 2, -8, 64, -544, 3968, -29952, 378880, -5938176, 68247552, -793491456, 15949529088, -306908848128, 4760383438848, -90615249567744, 2119956936523776, -49428158281678848, 1123874181449515008, -26217392043061149696, 722523072906903158784, -21323712124731229470720, 589068777481530305937408
Offset: 1
-
nmax = 23; CoefficientList[Series[Sum[MoebiusMu[k] Log[1 + ArcTanh[x^k]]/k, {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]! // Rest
A353972
Product_{n>=1} (1 + x^n)^(a(n)/n!) = 1 + arcsin(x).
Original entry on oeis.org
1, 0, 1, -4, 29, -124, 1583, -17088, 124553, -1152816, 20127867, -262838016, 3978820221, -48595514304, 914656587063, -24441484099584, 370244721585681, -5884988565575424, 162968423791332339, -3855257807841017856, 82014901819948738629, -1934570487417807744000, 58311771938510122952559
Offset: 1
-
b[n_, i_] := b[n, i] = If[n == 0, 1, If[i < 1, 0, Sum[Binomial[c[i], j] b[n - i j, i - 1], {j, 0, n/i}]]]; c[n_] := c[n] = Mod[n, 2] (n - 2)!!/(n (n - 1)!!) - b[n, n - 1]; a[n_] := n! c[n]; Table[a[n], {n, 1, 23}]
Showing 1-4 of 4 results.