OFFSET
1,2
MATHEMATICA
nmax = 21; CoefficientList[Series[-Log[1 - x - Sum[Prime[k - 1] x^k/k!, {k, 2, nmax}]], {x, 0, nmax}], x] Range[0, nmax]! // Rest
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Aug 04 2021
STATUS
approved