|
%I #12 Mar 08 2018 16:55:35
%S 0,1,7,5,-146,-351,9936,51421,-1394000,-12844287,328407400,4874111901,
%T -115361217696,-2607873466511,55768370301112,1866984952934445,
%U -34886452149332864,-1720211491314549375,26716801597874981064,1979492625918149729437,-23490293022369696366560,-2777285149336544358953679
%N Logarithmic transform of the cubes A000578.
%H Alois P. Heinz, <a href="/A300452/b300452.txt">Table of n, a(n) for n = 0..408</a>
%H M. Bernstein and N. J. A. Sloane, <a href="https://arxiv.org/abs/math/0205301">Some canonical sequences of integers</a>, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to arXiv version]
%H M. Bernstein and N. J. A. Sloane, <a href="/A003633/a003633_1.pdf">Some canonical sequences of integers</a>, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to Lin. Alg. Applic. version together with omitted figures]
%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/LogarithmicTransform.html">Logarithmic Transform</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CubicNumber.html">Cubic Number</a>
%F E.g.f.: log(1 + exp(x)*x*(1 + 3*x + x^2)).
%e E.g.f.: A(x) = x/1! + 7*x^2/2! + 5*x^3/3! - 146*x^4/4! - 351*x^5/5! + 9936*x^6/6! + ...
%p a:= proc(n) option remember; (t-> `if`(n=0, 0, t(n) -add(j*
%p binomial(n, j)*t(n-j)*a(j), j=1..n-1)/n))(i->i^3)
%p end:
%p seq(a(n), n=0..25); # _Alois P. Heinz_, Mar 06 2018
%t nmax = 21; CoefficientList[Series[Log[1 + Exp[x] x (1 + 3 x + x^2)], {x, 0, nmax}], x] Range[0, nmax]!
%Y Cf. A000578, A009306, A033464, A279358.
%K sign
%O 0,3
%A _Ilya Gutkovskiy_, Mar 06 2018
|
