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