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,3

Comments

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

Links

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

Formula

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

Mathematica

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

Prog

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

Crossrefs

Cf. A185221, A367078.

Cf. A367152, A367154.

Sequence in context: A058806 A302616 A006902 * A180254 A127696 A088691

Adjacent sequences: A367076 A367077 A367078 * A367080 A367081 A367082

Keyword

new,sign

Author

Seiichi Manyama, Nov 07 2023

Status

approved