A375606 a(1) = 1; a(n+1) = a(n) + floor(harmonic mean of previous terms).
1, 2, 3, 4, 5, 7, 9, 11, 14, 17, 20, 23, 27, 31, 35, 40, 45, 50, 55, 61, 67, 73, 80, 87, 94, 102, 110, 118, 126, 135, 144, 153, 163, 173, 183, 193, 204, 215, 226, 238, 250, 262, 275, 288, 301, 314, 328, 342, 356, 371, 386, 401, 417, 433, 449, 465, 482, 499, 516
Offset: 1
Keywords
Examples
a(6) = 5 + floor(harmonic mean(1,2,3,4,5)) = 5 + floor(300/137) = 7.
Links
- James C. McMahon, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Nest[Append[#,Last[#]+Floor@HarmonicMean[#]]&,{1},58]