| 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 (list; graph; refs; listen; history; edit; text; internal format) |
|
| OFFSET | 1,2 | | LINKS | | | EXAMPLE | a(6) = 5 + floor(harmonic mean(1,2,3,4,5)) = 5 + floor(300/377) = 7. | | MATHEMATICA | Nest[Append[#, Last[#]+Floor@HarmonicMean[#]]&, {1}, 58] | | CROSSREFS | | | KEYWORD | nonn,new | | AUTHOR | | | STATUS | approved |
|
No comments:
Post a Comment