|
Search: id:A081881
|
|
|
| A081881 |
|
Pack bins of size 1 sequentially with items of size 1/1, 1/2, 1/3, 1/4, ... Sequence gives values of n for which 1/n starts a new bin. |
|
+0
2
|
|
| 1, 2, 4, 10, 26, 69, 186, 504, 1369, 3720, 10111, 27483, 74705, 203068, 551995, 1500477, 4078718, 11087104, 30137872, 81923228, 222690421, 605335323, 1645472007, 4472856655, 12158484965
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
a(n) is asymptotic to C*exp(n) where C=0.1688... - Benoit Cloitre (benoit7848c(AT)orange.fr), Apr 14 2003
a(n) = 1 + (A136616^(n-1))(0) - Rainer Rosenthal (r.rosenthal(AT)web.de), Feb 16 2008
|
|
EXAMPLE
|
1/1; 1/2+1/3, 1/4+1/5+1/6+1/7+1/8+1/9 are all just less than 1; so first four terms are 1, 2, 4, 10.
Lower and upper indices of bin contents are {1,1}, {2,3}, {4,9}, {10,25}, {26,68}, {69,185}, {186,503}, {504,1368}, {1369,3719}, {3720,10110}, {10111,27482}, ...
|
|
MATHEMATICA
|
res ={}; FoldList[If[ #1+#2 > 1, AppendTo[res, #2]; #2, #1+#2]&, 0, Table[1/k, {k, 1, 1000}]]; 1/res
lst = {1, 2}; n = 2; Do[s = 0; While[s = N[s + 1/n, 64]; s < 1, n++ ]; AppendTo[lst, n]; Print@n, {i, 25}]; lst - from Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 19 2008
|
|
CROSSREFS
|
Cf. A002387, A136616, A136617.
Sequence in context: A055819 A113337 A084575 this_sequence A134773 A025565 A085455
Adjacent sequences: A081878 A081879 A081880 this_sequence A081882 A081883 A081884
|
|
KEYWORD
|
nonn,nice
|
|
AUTHOR
|
Wouter Meeussen (wouter.meeussen(AT)pandora.be), Apr 13 2003
|
|
EXTENSIONS
|
a(13)-a(25) from Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 19 2008
|
|
|
Search completed in 0.002 seconds
|
