|
| |
|
|
A116552
|
|
New alternating chaotic sequence: anti-Harborth form, 3rd type.
|
|
0
| |
|
|
1, 3, 4, 9, 13, 12, 19, 27, 40, 39, 61, 36, 61, 57, 88, 81, 127, 120, 187, 117, 196, 183, 283, 108, 205, 183, 280, 171, 289, 264, 409, 243, 412, 381, 589, 360, 607, 561, 868, 351, 655, 588, 901, 549, 928, 849, 1315, 324, 715, 615, 928, 549, 937, 840, 1303, 513
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
REFERENCES
| Harborth, H. Number of Odd Binomial Coefficients. Proc. Amer. Math. Soc. 62, 19-22, 1977
|
|
|
LINKS
| Eric Weisstein's World of Mathematics, Stolarsky-Harborth Constant
|
|
|
FORMULA
| a(n) = If[Mod[n,2]=0, 3*a(n/2],4*a((n-1)/2)+a((n-3)/2)]
|
|
|
MATHEMATICA
| b[0] := 0 b[1] := 1 b[n_?EvenQ] := b[n] = 3*b[n/2] b[n_?OddQ] := b[n] = 4*b[(n - 1)/2] + b[(n - 3)/2] a = Table[b[n], {n, 1, 70}]
|
|
|
CROSSREFS
| Sequence in context: A034421 A029448 A103014 * A167930 A124285 A131326
Adjacent sequences: A116549 A116550 A116551 * A116553 A116554 A116555
|
|
|
KEYWORD
| nonn,uned,obsc
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Mar 15 2006
|
| |
|
|
