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.

A347002 Expansion of e.g.f. exp( -log(1 - x)^3 / 3! ).

This page as a plain text file.
%I A347002 #12 May 06 2022 20:33:45
%S A347002 1,0,0,1,6,35,235,1834,16352,163764,1818030,22143726,293476326,
%T A347002 4203311892,64682865156,1064154324024,18636296872320,346103784493560,
%U A347002 6793394350116600,140508244952179200,3054120126193160280,69596730438090806880,1659041650323705102840
%N A347002 Expansion of e.g.f. exp( -log(1 - x)^3 / 3! ).
%H A347002 Seiichi Manyama, <a href="/A347002/b347002.txt">Table of n, a(n) for n = 0..447</a>
%F A347002 a(0) = 1; a(n) = Sum_{k=1..n} binomial(n-1,k-1) * |Stirling1(k,3)| * a(n-k).
%F A347002 a(n) = Sum_{k=0..floor(n/3)} (3*k)! * |Stirling1(n,3*k)|/(6^k * k!). - _Seiichi Manyama_, May 06 2022
%t A347002 nmax = 22; CoefficientList[Series[Exp[-Log[1 - x]^3/3!], {x, 0, nmax}], x] Range[0, nmax]!
%t A347002 a[0] = 1; a[n_] := a[n] = Sum[Binomial[n - 1, k - 1] Abs[StirlingS1[k, 3]] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 22}]
%o A347002 (PARI) a(n) = sum(k=0, n\3, (3*k)!*abs(stirling(n, 3*k, 1))/(6^k*k!)); \\ _Seiichi Manyama_, May 06 2022
%Y A347002 Cf. A000399, A327504, A346922, A347001, A347003, A347004.
%K A347002 nonn
%O A347002 0,5
%A A347002 _Ilya Gutkovskiy_, Aug 10 2021