cp's OEIS Frontend

A051564 Second unsigned column of triangle A051523.

%I A051564 #36 Jan 25 2023 13:29:45
%S A051564 0,1,21,362,6026,101524,1763100,31813200,598482000,11752855200,
%T A051564 240947474400,5154170774400,114942011990400,2669517204076800,
%U A051564 64496340380102400,1619153396908185600,42188624389562112000
%N A051564 Second unsigned column of triangle A051523.
%C A051564 The asymptotic expansion of the higher order exponential integral E(x,m=2,n=10) ~ exp(-x)/x^2*(1 - 21/x + 362/x^2 - 6026/x^3 + 101524/x^4 - 1763100/x^5 + 31813200/x^6 - ...) leads to the sequence given above. See A163931 and A028421 for more information. - _Johannes W. Meijer_, Oct 20 2009
%D A051564 Mitrinovic, D. S. and Mitrinovic, R. S. see reference given for triangle A051523.
%H A051564 G. C. Greubel, <a href="/A051564/b051564.txt">Table of n, a(n) for n = 0..440</a>
%F A051564 a(n) = A051523(n, 2)*(-1)^(n-1).
%F A051564 E.g.f.: -log(1-x)/(1-x)^10.
%F A051564 a(n) = n!*Sum_{k=0..n-1}((-1)^k*binomial(-10,k)/(n-k)), for n>=1. - _Milan Janjic_, Dec 14 2008
%F A051564 a(n) = n!*[9]h(n), where [k]h(n) denotes the k-th successive summation of the harmonic numbers from 0 to n. - _Gary Detlefs_, Jan 04 2011
%t A051564 f[n_] := n!*Sum[(-1)^k*Binomial[-10, k]/(n - k), {k, 0, n - 1}]; Array[f, 17, 0]
%t A051564 Range[0, 16]! CoefficientList[ Series[-Log[(1 - x)]/(1 - x)^10, {x, 0, 16}], x]
%t A051564 (* Or, using elementary symmetric functions: *)
%t A051564 f[k_] := k + 9; t[n_] := Table[f[k], {k, 1, n}]
%t A051564 a[n_] := SymmetricPolynomial[n - 1, t[n]]
%t A051564 Table[a[n], {n, 1, 16}]
%t A051564 (* _Clark Kimberling_, Dec 29 2011 *)
%Y A051564 Cf. A049398 (first unsigned column).
%Y A051564 Related to n!*the k-th successive summation of the harmonic numbers: k=0..A000254, k=1..A001705, k=2..A001711, k=3..A001716, k=4..A001721, k=5..A051524, k=6..A051545, k=7..A051560, k=8..A051562, k=9..A051564. - _Gary Detlefs_ Jan 04 2011
%K A051564 easy,nonn
%O A051564 0,3
%A A051564 _Wolfdieter Lang_