%I #6 May 10 2022 14:26:28
%S 1,0,1,-4,29,-174,1583,-13168,144153,-1485330,20127867,-253341144,
%T 3978820221,-57986205900,1057400360235,-18016221644544,
%U 370244721585681,-6993826454599146,162968423791332339,-3490951922268853320,88052648301403014789,-2075060448716599488276
%N Product_{n>=1} (1 + a(n)*x^n/n!) = 1 + arcsin(x).
%t nn = 22; f[x_] := Product[(1 + a[n] x^n/n!), {n, 1, nn}]; sol = SolveAlways[0 == Series[f[x] - 1 - ArcSin[x], {x, 0, nn}], x]; Table[a[n], {n, 1, nn}] /. sol // Flatten
%Y Cf. A001818, A006973, A137852, A353607, A353819, A353820, A353821.
%K sign
%O 1,4
%A _Ilya Gutkovskiy_, May 08 2022
|