OFFSET
0,3
FORMULA
PROG
(PARI) my(N=30, x='x+O('x^N)); Vec(serlaplace(1/(1-x)^(1-log(1-x))))
(PARI) my(N=30, x='x+O('x^N)); Vec(serlaplace(exp(-log(1-x)*(1-log(1-x)))))
(PARI) a_vector(n) = my(v=vector(n+1)); v[1]=1; for(i=1, n, v[i+1]=(i-1)!*sum(j=1, i, (1+2*sum(k=1, j-1, 1/k))*v[i-j+1]/(i-j)!)); v;
(PARI) a(n) = sum(k=0, n, k!*sum(j=0, k\2, 1/(j!*(k-2*j)!))*abs(stirling(n, k, 1)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, May 14 2022
STATUS
approved