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.

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

This page as a plain text file.
%I A347004 #11 May 06 2022 20:34:05
%S A347004 1,0,0,0,0,1,15,175,1960,22449,269451,3423860,46238280,664233856,
%T A347004 10143487354,164423078456,2823768543960,51272283444264,
%U A347004 982177492263750,19807082824819374,419629806223448346,9320808413229618816,216645165604679499072,5259724543984442886486
%N A347004 Expansion of e.g.f. exp( -log(1 - x)^5 / 5! ).
%H A347004 Seiichi Manyama, <a href="/A347004/b347004.txt">Table of n, a(n) for n = 0..448</a>
%F A347004 a(0) = 1; a(n) = Sum_{k=1..n} binomial(n-1,k-1) * |Stirling1(k,5)| * a(n-k).
%F A347004 a(n) = Sum_{k=0..floor(n/5)} (5*k)! * |Stirling1(n,5*k)|/(120^k * k!). - _Seiichi Manyama_, May 06 2022
%t A347004 nmax = 23; CoefficientList[Series[Exp[-Log[1 - x]^5/5!], {x, 0, nmax}], x] Range[0, nmax]!
%t A347004 a[0] = 1; a[n_] := a[n] = Sum[Binomial[n - 1, k - 1] Abs[StirlingS1[k, 5]] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 23}]
%o A347004 (PARI) a(n) = sum(k=0, n\5, (5*k)!*abs(stirling(n, 5*k, 1))/(120^k*k!)); \\ _Seiichi Manyama_, May 06 2022
%Y A347004 Cf. A000482, A327506, A346924, A347001, A347002, A347003.
%K A347004 nonn
%O A347004 0,7
%A A347004 _Ilya Gutkovskiy_, Aug 10 2021