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,2

Links

James C. McMahon, Table of n, a(n) for n = 1..10000

Example

a(6) = 5 + floor(harmonic mean(1,2,3,4,5)) = 5 + floor(300/137) = 7.

Mathematica

Nest[Append[#, Last[#]+Floor@HarmonicMean[#]]&, {1}, 58]

Crossrefs

Cf. A065094, A114829.

Sequence in context: A274197 A286267 A337334 * A008750 A076677 A029001

Adjacent sequences: A375603 A375604 A375605 * A375607 A375608 A375609

Keyword

nonn

Author

James C. McMahon, Aug 20 2024

Status

approved