|
| |
|
|
A123945
|
|
A version of F. K. Hwang's sequence in {3*k,3*k+1,3*k+2}.
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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 * A198102 A097466 A141624
Adjacent sequences: A123942 A123943 A123944 * A123946 A123947 A123948
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 25 2006
|
| |
|
|
