|
Search: id:A073941
|
|
|
| A073941 |
|
a(n) = ceiling(sum{a(k): 1<=k<n} / 2); a(1)=1. |
|
+0
89
|
|
| 1, 1, 1, 2, 3, 4, 6, 9, 14, 21, 31, 47, 70, 105, 158, 237, 355, 533, 799, 1199, 1798, 2697, 4046, 6069, 9103, 13655, 20482, 30723, 46085, 69127, 103691, 155536, 233304, 349956, 524934, 787401, 1181102, 1771653, 2657479, 3986219, 5979328, 8968992
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
LINKS
|
T. D. Noe, Table of n, a(n) for n=1..500
|
|
FORMULA
|
a(n) = ceiling(c*(3/2)^n-1/2) where c = 0.3605045561966149591015446628665... - Benoit Cloitre, Nov 22, 2002
If 2^m divides a(i) then 2^(m-1)*3^1 divides a(i+1) and so on... until finally, 3^m divides a(i+m). - Ralf Stephan (ralf(AT)ark.in-berlin.de), Apr 20 2003
|
|
MATHEMATICA
|
f[s_] := Append[s, Ceiling[Plus @@ s/2]]; Nest[f, {1}, 41] (from Robert G. Wilson v (rgwv(at)rgwv.com), Jul 07 2006)
|
|
CROSSREFS
|
Same as log2(A082125(n)), for n>2. - Ralf Stephan (ralf(AT)ark.in-berlin.de), Apr 16 2002
Apart from initial term, same as A005428, which has further information.
a(n+4) = A079719(n)+2. Cf. A082416.
Partial sums for various start indices are in A006999, A061419, A061418. - Ralf Stephan (ralf(AT)ark.in-berlin.de), Apr 17 2003
Is this the same as A081848/3?
The constant c is 2/9*K(3) (see A083286). - Ralf Stephan, May 29, 2003
Sequence in context: A022859 A039884 A078620 this_sequence A005428 A058355 A099558
Adjacent sequences: A073938 A073939 A073940 this_sequence A073942 A073943 A073944
|
|
KEYWORD
|
nonn,nice
|
|
AUTHOR
|
Reinhard Zumkeller (reinhard.zumkeller(AT)lhsystems.com), Nov 20 2002
|
|
|
Search completed in 0.002 seconds
|
