Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Search: a011189 -id:a011189
     Sort: relevance | references | number | modified | created      Format: long | short | data
Coefficients in expansion of Pi as Sum_{n>=1} a(n)/(n*n!*(n+1)!), as found by greedy algorithm.
+10
2
6, 3, 7, 4, 18, 1, 21, 35, 76, 82, 56, 25, 98, 149, 111, 170, 166, 195, 113, 306, 221, 367, 533, 373, 360, 675, 7, 262, 194, 669, 776, 1083, 384, 617, 725, 752, 122, 1131, 514, 992, 1238, 600, 1380, 1306, 1991, 1983, 114, 2021, 534, 1660, 192, 733, 1596, 1898
OFFSET
1,1
MATHEMATICA
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[Pi, 50] (* Amiram Eldar, Mar 11 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Offset corrected and more terms from Sean A. Irvine, Jun 14 2018
STATUS
approved
Coefficients in expansion of sqrt(2) as Sum_{n>=1} a(n)/(n*n!*(n+1)!), as found by greedy algorithm.
+10
2
2, 9, 16, 25, 2, 38, 16, 31, 93, 115, 112, 128, 117, 173, 254, 96, 15, 88, 235, 308, 13, 501, 151, 171, 301, 310, 348, 841, 493, 238, 982, 436, 306, 142, 1113, 151, 1361, 586, 1284, 1361, 368, 1685, 1340, 194, 897, 707, 1930, 782, 321, 2237, 27, 1407, 2250, 1226
OFFSET
1,1
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Offset corrected and more terms from Sean A. Irvine, Jun 14 2018
STATUS
approved

Search completed in 0.006 seconds