%I M4448 N1883 #28 Apr 28 2020 11:50:32
%S 7,85,1660,48076,1942416,104587344,7245893376,628308907776,
%T 66687811660800,8506654697548800,1284292319599411200,
%U 226530955276874956800,46165213716463676620800,10765453901922078105600000,2848453606917036402278400000,848800150518516674081587200000
%N Differences of reciprocals of unity.
%D F. N. David, M. G. Kendall and D. E. Barton, Symmetric Function and Allied Tables, Cambridge, 1966, p. 228.
%D N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H Mircea Merca, <a href="https://www.researchgate.net/publication/264664262_Some_experiments_with_complete_and_elementary_symmetric_functions">Some experiments with complete and elementary symmetric functions</a>, Periodica Mathematica Hungarica, 69 (2014), 182-189.
%F From _Vaclav Kotesovec_, Oct 23 2017: (Start)
%F a(n) = (3*n^2 + 3*n + 1)*a(n-1) - 3*n^4*a(n-2) + (n-1)^3*n^3*a(n-3).
%F a(n) ~ Pi * log(n)^2 * n^(2*n + 3) * (1 + 2*gamma/log(n) + (gamma^2 + Pi^2/6) / log(n)^2) / exp(2*n), where gamma is the Euler-Mascheroni constant (A001620). (End)
%t T[n_, k_] := If[k <= n, (n-k+2)!^k*Sum[(-1)^(j+1)*Binomial[n-k+2, j]/j^k, {j, 1, n-k+2}], 0]; a[n_] := T[n+1, 2]; Table[a[n], {n, 1, 10}] (* _Jean-François Alcover_, Feb 08 2016, after _Alois P. Heinz_ in A008969 *)
%Y Essentially the same as A060237.
%Y Column 2 in triangle A008969.
%K nonn
%O 1,1
%A _N. J. A. Sloane_
%E More terms from _Vaclav Kotesovec_, Oct 23 2017
|