|
Search: id:A137285
|
|
|
| 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
2
|
|
| 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
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.
Adjacent sequences: A137282 A137283 A137284 this_sequence A137286 A137287 A137288
Sequence in context: A005704 A022782 A025692 this_sequence A062441 A059290 A133231
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet Apr 05 2008
|
|
EXTENSIONS
|
More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Apr 09 2008
|
|
|
Search completed in 0.002 seconds
|
