A367079 E.g.f. satisfies A(x) = 1 + log(1 + x*A(x)^3).

1, 1, 5, 47, 654, 12084, 278682, 7708056, 248678784, 9168447600, 380274659760, 17524760349216, 888364833282000, 49125202031205936, 2942774373267939168, 189829708902667840320, 13118899353628035596544, 966975804677206274688000

Offset: 0

Author

Seiichi Manyama, Nov 07 2023

Keywords

• new
• sign

Comments

a(131) is negative. - Vaclav Kotesovec, Nov 07 2023

Links

• Vaclav Kotesovec, Table of n, a(n) for n = 0..358

Crossrefs

Cf. A185221, A367078.

Cf. A367152, A367154.

Programs

Mathematica

Table[(3*n)! * Sum[StirlingS1[n,k]/(3*n-k+1)!, {k,0,n}], {n,0,20}] (* Vaclav Kotesovec, Nov 07 2023 *)

PARI

a(n) = (3*n)!*sum(k=0, n, stirling(n, k, 1)/(3*n-k+1)!);

Formula

a(n) = (3*n)! * Sum_{k=0..n} Stirling1(n,k)/(3*n-k+1)!.