|
%I #14 Mar 11 2022 04:51:56
%S 5,5,4,7,35,12,38,70,10,82,92,118,94,121,133,184,98,306,7,420,218,248,
%T 543,182,383,444,278,627,756,359,427,588,202,884,826,1065,355,840,284,
%U 1153,921,1730,1929,1487,901,919,2169,473,2193,1908,144,2655,630,1957
%N Coefficients in expansion of e as Sum_{n>=1} a(n)/(n*n!*(n+1)!), as found by greedy algorithm.
%t seq[cons_, len_] := Module[{s = {}, n = 0, c = cons, m}, While[n < len, n++; m = Floor[c*(n*n!*(n + 1)!)]; AppendTo[s, m]; c -= m/(n*n!*(n + 1)!)]; s]; seq[E, 50] (* _Amiram Eldar_, Mar 11 2022 *)
%Y Cf. A001113, A011191, A011193.
%K nonn
%O 1,1
%A _N. J. A. Sloane_.
%E Offset corrected and more terms from _Sean A. Irvine_, Jun 14 2018
|
