options(width=80) b <- sapply(1:50, function(n) (2*n + 20)/(n^2)) b
Standard input is empty
[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