fork download
  1. options(width=80)
  2. b <- sapply(1:50, function(n) (2*n + 20)/(n^2))
  3. b
Success #stdin #stdout 0.31s 22832KB
stdin
Standard input is empty
stdout
 [1] 22.00000000  6.00000000  2.88888889  1.75000000  1.20000000  0.88888889
 [7]  0.69387755  0.56250000  0.46913580  0.40000000  0.34710744  0.30555556
[13]  0.27218935  0.24489796  0.22222222  0.20312500  0.18685121  0.17283951
[19]  0.16066482  0.15000000  0.14058957  0.13223140  0.12476371  0.11805556
[25]  0.11200000  0.10650888  0.10150892  0.09693878  0.09274673  0.08888889
[31]  0.08532778  0.08203125  0.07897153  0.07612457  0.07346939  0.07098765
[37]  0.06866326  0.06648199  0.06443130  0.06250000  0.06067817  0.05895692
[43]  0.05732829  0.05578512  0.05432099  0.05293006  0.05160706  0.05034722
[49]  0.04914619  0.04800000