This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A354172 #6 May 22 2022 08:54:41 %S A354172 1,0,1,-4,21,-76,1023,-12160,65145,-602416,10925883,-120444160, %T A354172 1994183205,-21404165056,372390766023,-12580544512000,158096182329585, %U A354172 -2119447579092736,64115697136312563,-1412937791690260480,27389518837925527965,-616988361649163447296,19391677044464348893503 %N A354172 Product_{n>=1} (1 + x^n)^(a(n)/n!) = 1 + sinh(x). %F A354172 E.g.f.: Sum_{k>=1} A067856(k) * log(1 + sinh(x^k)) / k. %t A354172 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! - b[n, n - 1]; a[n_] := n! c[n]; Table[a[n], {n, 1, 23}] %Y A354172 Cf. A067856, A353608, A353910, A354056, A354171, A354173, A354174, A354175, A354176. %K A354172 sign %O A354172 1,4 %A A354172 _Ilya Gutkovskiy_, May 18 2022