OFFSET
0,3
FORMULA
a(n) = [x^n] Product_{k > 0} (1 + f(k)*x^k), where f(1) = 1 and f(m) = prime(m-1) for m >= 2.
MATHEMATICA
f[n_] = If[n < 2, n, Prime[n - 1]];
P[x_, n_] := P[x, n] = Product[1 + f[m]*x^m, {m, 0, n}];
Take[CoefficientList[P[x, 37], x], 37]
(* Program edited and corrected by Petros Hadjicostas, Apr 12 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Nov 19 2008
EXTENSIONS
Various sections edited by Petros Hadjicostas, Apr 12 2020
STATUS
approved