|
Search: id:A116529
|
|
|
| A116529 |
|
New alternating chaotic sequence: anti-Harborth form, 2nd type. |
|
+0
1
|
|
| 1, 1, 2, 1, 3, 2, 5, 1, 4, 3, 7, 2, 7, 5, 12, 1, 7, 4, 9, 3, 10, 7, 17, 2, 11, 7, 16, 5, 17, 12, 29, 1, 14, 7, 15, 4, 15, 9, 22, 3, 15, 10, 23, 7, 24, 17, 41, 2, 21, 11, 24, 7, 25, 16, 39, 5, 26, 17, 39, 12, 41, 29, 70, 1, 31, 14, 29, 7, 28, 15
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
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, a(n/2],2*a((n-1)/2)+a((n-3)/2)]
|
|
MATHEMATICA
|
b[0] := 0 b[1] := 1 b[n_?EvenQ] := b[n] = b[n/2] b[n_?OddQ] := b[n] = 2*b[(n - 1)/2] + b[(n - 3)/2] a = Table[b[n], {n, 1, 70}]
|
|
CROSSREFS
|
Sequence in context: A024467 A117364 A120250 this_sequence A064989 A030067 A105800
Adjacent sequences: A116526 A116527 A116528 this_sequence A116530 A116531 A116532
|
|
KEYWORD
|
nonn,uned,probation,obsc
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Mar 15 2006
|
|
|
Search completed in 0.002 seconds
|
