A137285 a(1)=1. a(n+1) = a(n) + (number of terms of this sequence, from among terms a(1) through a(n), that are >= (1/n)sum{k=1 to n} a(k)).

1, 2, 3, 5, 7, 9, 12, 15, 19, 23, 27, 32, 37, 43, 49, 56, 63, 70, 78, 86, 95, 104, 113, 123, 133, 144, 155, 167, 179, 191, 204, 217, 231, 245, 259, 274, 289, 305, 321, 338, 355, 372, 390, 408, 427, 446, 466, 486, 506, 527, 548, 570, 592, 614, 637, 660, 684, 708

Offset

1,2

Links

Table of n, a(n) for n=1..58.

Example

The sum of the first 7 terms of this sequence is 1+2+3+5+7+9+12 = 39. So the arithmetic average of the first 7 terms is 39/7. The terms of this sequence, from among the first 7 terms, that are >= 39/7 (= 5 +4/7) are 7, 9, 12. There are therefore =3 such terms >= 39/7. So a(8) = a(7) + 3 = 12 + 3 = 15.

Mathematica

a = {1}; Do[AppendTo[a, a[[ -1]] + Length[Select[a, Length[a]# + 1 > Plus @@ a &]]], {60}]; a (* Stefan Steinerberger, Apr 09 2008 *)

Crossrefs

Cf. A136413.

Sequence in context: A022782 A283968 A025692 * A062441 A059290 A309881

Adjacent sequences: A137282 A137283 A137284 * A137286 A137287 A137288

Keyword

nonn

Author

Leroy Quet, Apr 05 2008

Extensions

More terms from Stefan Steinerberger, Apr 09 2008

Status

approved