A353950 Product_{n>=1} 1 / (1 - a(n)*x^n) = 1 + Sum_{n>=1} prime(n+1)*x^n.
3, -4, -8, -26, -52, -126, -320, -1214, -2016, -7068, -16064, -48142, -122552, -390574, -903176, -3549556, -7597004, -22902332, -61172890, -198872948, -486889660, -1555059566, -4093173788, -12448334478, -33815484714, -105268420776, -279683446078, -894795490384, -2366564864546
Offset: 1
Keywords
Programs
-
Mathematica
A[m_, n_] := A[m, n] = Which[m == 1, Prime[n + 1], m > n >= 1, 0, True, A[m - 1, n] - A[m - 1, m - 1] A[m - 1, n - m + 1]]; a[n_] := A[n, n]; a /@ Range[1, 29]