Skip to content

Instantly share code, notes, and snippets.

@doryokujin
Created May 8, 2012 16:49
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save doryokujin/2637207 to your computer and use it in GitHub Desktop.
Save doryokujin/2637207 to your computer and use it in GitHub Desktop.
sapply(seq(1,50),function(n){ n*harmonic(n) })
[1] [2] [3] [4] [5]
[1] 1.000000 3.000000 5.500000 8.333333 11.416667
[2] 14.700000 18.150000 21.742857 25.460714 29.289683
[3] 33.218651 37.238528 41.341739 45.521873 49.773435
[4] 54.091664 58.472393 62.911945 67.407053 71.954793
[5] 76.552533 81.197892 85.888705 90.622996 95.398954
[6] 100.214913 105.069332 109.960789 114.887960 119.849614
[7] 124.844601 129.871846 134.930341 140.019140 145.137350
[8] 150.284131 155.458690 160.660277 165.888179 171.141722
[9] 176.420265 181.723198 187.049941 192.399939 197.772665
[10] 203.167613 208.584301 214.022264 219.481062 224.960267
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment