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.
%I A375656 #11 Aug 12 2025 18:50:17 %S A375656 1,1,1,7,29,81,541,3781,18537,129529,1171961,8446131,66198661, %T A375656 683784817,6492131829,59303102041,664191218321,7659196889841, %U A375656 82391350746097,991483941558079,13066764825298221,164001743446274161,2139651772557011021,30946063565684912877 %N A375656 Expansion of e.g.f. exp(x^3 + x * exp(x^3/6)). %F A375656 a(n) = n! * Sum_{k=0..floor(n/3)} ((n-3*k+6)/6)^k / (k! * (n-3*k)!). %t A375656 With[{nn=30},CoefficientList[Series[Exp[x^3+x Exp[x^3/6]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Aug 12 2025 *) %o A375656 (PARI) my(N=30, x='x+O('x^N)); Vec(serlaplace(exp(x^3+x*exp(x^3/6)))) %o A375656 (PARI) a(n) = n!*sum(k=0, n\3, ((n-3*k+6)/6)^k/(k!*(n-3*k)!)); %Y A375656 Cf. A080108, A375655. %Y A375656 Cf. A375634. %K A375656 nonn %O A375656 0,4 %A A375656 _Seiichi Manyama_, Aug 22 2024