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.

A158615 Expansion of Sum_{n>0} n*n!*x^n/(1-n!*x^n).

This page as a plain text file.
%I A158615 #9 Dec 19 2015 06:43:50
%S A158615 1,5,19,105,601,4445,35281,324897,3266569,36360065,439084801,
%T A158615 5751188913,80951270401,1220673888257,19615124183329,334777645154817,
%U A158615 6046686277632001,115243914079782593,2311256907767808001
%N A158615 Expansion of Sum_{n>0} n*n!*x^n/(1-n!*x^n).
%C A158615 a(n) = Sum_{d|n} d*d!^(n/d).
%H A158615 Vaclav Kotesovec, <a href="/A158615/b158615.txt">Table of n, a(n) for n = 1..440</a>
%F A158615 a(n) ~ n * n!. - _Vaclav Kotesovec_, Dec 19 2015
%p A158615 nmax := 40: gf := add( taylor( n*n!*x^n/(1-n!*x^n),x=0,nmax+1),n=1..nmax ) : coeffs(convert(gf,polynom)) ; # _R. J. Mathar_, Mar 30 2009
%t A158615 nmax=20; Rest[CoefficientList[Series[Sum[k*k!*x^k/(1-k!*x^k), {k, 1, nmax}], {x, 0, nmax}], x]] (* _Vaclav Kotesovec_, Dec 19 2015 *)
%Y A158615 Cf. A077365, A265950.
%K A158615 easy,nonn
%O A158615 1,2
%A A158615 _Vladeta Jovovic_, Mar 22 2009
%E A158615 More terms from _R. J. Mathar_, Mar 30 2009