|
Search: id:A116552
|
|
|
| A116552 |
|
New alternating chaotic sequence: anti-Harborth form, 3rd type. |
|
+0
1
|
|
| 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; listen)
|
|
|
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
|
Adjacent sequences: A116549 A116550 A116551 this_sequence A116553 A116554 A116555
Sequence in context: A034421 A029448 A103014 this_sequence A124285 A131326 A089300
|
|
KEYWORD
|
nonn,uned,probation,obsc
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Mar 15 2006
|
|
|
Search completed in 0.002 seconds
|
