|
Search: id:A123945
|
|
|
| A123945 |
|
A version of F. K. Hwang's sequence in {3*k,3*k+1,3*k+2}. |
|
+0
1
|
|
| 0, 1, 1, 2, 6, 6, 5, 13, 14, 11, 27, 29, 23, 55, 60, 48, 112, 122, 97, 225, 245, 195, 451, 492, 392, 904, 986, 785, 1809, 1972, 1571
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
REFERENCES
|
http://www.math.ucsd.edu/~fan/ron/images/monster.html Exercise 14
|
|
LINKS
|
F. R. K. Chung, Problem 13
|
|
FORMULA
|
a(n) = If[Mod[n, 3] == 0, Floor[(43/28)*2^(n3)] - 1, If[Mod[n, 3] == 1, a(n - 1) + 2*2^((n - 1)/3), Floor[(17/7)*2^(n/3) - 6/7]]]
|
|
MATHEMATICA
|
f[0] = 0; f[1] = 1; f[2] = 1; f[3] = 2; f[n_] := f[n] = If[Mod[n, 3] == 0, Floor[(43/28)*2^(n/3)] - 1, If[Mod[n, 3] == 1, f[n - 1] + 2*2^((n - 1)/3), Floor[(17/7)*2^(n/3) - 6/7]]]
|
|
CROSSREFS
|
Sequence in context: A007507 A065486 A069806 this_sequence A097466 A141624 A134413
Adjacent sequences: A123942 A123943 A123944 this_sequence A123946 A123947 A123948
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 25 2006
|
|
|
Search completed in 0.002 seconds
|
