cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A354551 Expansion of e.g.f. exp( x * exp(x^3/6) ).

This page as a plain text file.
%I A354551 #21 Mar 03 2025 13:08:37
%S A354551 1,1,1,1,5,21,61,211,1401,8065,37241,240021,1997821,13856701,94418325,
%T A354551 874328911,8304303281,69158458881,658339599601,7454839614985,
%U A354551 78224066633781,805961931388741,9828080719704941,124199805022959051,1466207770078872745
%N A354551 Expansion of e.g.f. exp( x * exp(x^3/6) ).
%C A354551 This sequence is different from A143567.
%H A354551 Seiichi Manyama, <a href="/A354551/b354551.txt">Table of n, a(n) for n = 0..523</a>
%F A354551 a(n) = n! * Sum_{k=0..floor(n/3)} (n - 3*k)^k/(6^k * k! * (n - 3*k)!).
%t A354551 With[{nn=30},CoefficientList[Series[Exp[x*Exp[x^3/6]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Mar 03 2025 *)
%o A354551 (PARI) my(N=30, x='x+O('x^N)); Vec(serlaplace(exp(x*(exp(x^3/6)))))
%o A354551 (PARI) a(n) = n!*sum(k=0, n\3, (n-3*k)^k/(6^k*k!*(n-3*k)!));
%Y A354551 Cf. A000248, A354550, A354552.
%K A354551 nonn
%O A354551 0,5
%A A354551 _Seiichi Manyama_, Aug 18 2022