|
| |
|
|
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)).
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
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 (stefan.steinerberger(AT)gmail.com), Apr 09 2008
|
|
|
CROSSREFS
| Cf. A136413.
Sequence in context: A005704 A022782 A025692 * A062441 A059290 A133231
Adjacent sequences: A137282 A137283 A137284 * A137286 A137287 A137288
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Leroy Quet Apr 05 2008
|
|
|
EXTENSIONS
| More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Apr 09 2008
|
| |
|
|
