%I #13 Mar 11 2022 04:52:17
%S 2,9,16,25,2,38,16,31,93,115,112,128,117,173,254,96,15,88,235,308,13,
%T 501,151,171,301,310,348,841,493,238,982,436,306,142,1113,151,1361,
%U 586,1284,1361,368,1685,1340,194,897,707,1930,782,321,2237,27,1407,2250,1226
%N Coefficients in expansion of sqrt(2) 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[Sqrt[2], 50] (* _Amiram Eldar_, Mar 11 2022 *)
%Y Cf. A002193, A011189, A011191.
%K nonn
%O 1,1
%A _N. J. A. Sloane_.
%E Offset corrected and more terms from _Sean A. Irvine_, Jun 14 2018
|