OFFSET
18,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 18..10000
FORMULA
G.f.: (Sum_{k>=1} x^prime(k))^9.
MAPLE
b:= proc(n, k) option remember; local r, p; r, p:= 0, 2;
if n=0 then `if`(k=0, 1, 0) elif k<1 then 0 else
while p<=n do r:= r+b(n-p, k-1); p:= nextprime(p) od; r fi
end:
a:= n-> b(n, 9):
seq(a(n), n=18..56); # Alois P. Heinz, Jan 31 2021
MATHEMATICA
nmax = 56; CoefficientList[Series[Sum[x^Prime[k], {k, 1, nmax}]^9, {x, 0, nmax}], x] // Drop[#, 18] &
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jan 31 2021
STATUS
approved