3 lines
106 B
Text
3 lines
106 B
Text
nums = HarmonicNumber[Range[15000]];
|
|
nums[[;; 20]]
|
|
LengthWhile[nums, LessEqualThan[#]] + 1 & /@ Range[10]
|