|
| |
|
|
A116529
|
|
New alternating chaotic sequence: anti-Harborth form, 2nd type.
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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: A117364 A193615 A120250 * A169747 A064989 A030067
Adjacent sequences: A116526 A116527 A116528 * A116530 A116531 A116532
|
|
|
KEYWORD
| nonn,uned,obsc
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Mar 15 2006
|
| |
|
|
