A353951 Product_{n>=1} 1 / (1 - a(n)*x^n) = 1 + x + Sum_{n>=2} prime(n-1)*x^n.

1, 1, 1, 1, 1, 1, -1, -2, -3, -2, 4, -1, 5, 2, -4, -8, -9, -3, -3, 12, 19, -6, 6, -38, -27, -32, 13, 56, 50, 99, -49, -135, -162, -258, 83, 114, 468, 359, -40, -390, -1215, -791, -526, 876, 2640, 1816, 1673, -3404, -4516, -6527, -3640, 5320, 9282, 18019, 7210

Offset

1,8

Links

Table of n, a(n) for n=1..55.

Mathematica

A[m_, n_] := A[m, n] = Which[m == 1, If[n == 1, 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, 55]

Crossrefs

Cf. A008578, A147557, A305882, A353605, A353606, A353950.

Sequence in context: A143422 A071438 A328169 * A030011 A286000 A114383

Adjacent sequences: A353948 A353949 A353950 * A353952 A353953 A353954

Keyword

sign

Author

Ilya Gutkovskiy, May 12 2022

Status

approved