|
| |
|
|
A116553
|
|
New alternating chaotic sequence: anti-Harborth form, 4th type.
|
|
0
| |
|
|
1, 5, 6, 25, 31, 30, 41, 125, 156, 155, 211, 150, 211, 205, 276, 625, 791, 780, 1061, 775, 1086, 1055, 1421, 750, 1111, 1055, 1416, 1025, 1441, 1380, 1861, 3125, 4026, 3955, 5371, 3900, 5471, 5305, 7146, 3875, 5711, 5430, 7291, 5275, 7416, 7105, 9581, 3750
(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, 5*a(n/2],6*a((n-1)/2)+a((n-3)/2)]
|
|
|
MATHEMATICA
| b[0] := 0 b[1] := 1 b[n_?EvenQ] := b[n] = 5*b[n/2] b[n_?OddQ] := b[n] = 6*b[(n - 1)/2] + b[(n - 3)/2] a = Table[b[n], {n, 1, 70}]
|
|
|
CROSSREFS
| Sequence in context: A039594 A137080 A025622 * A034497 A136888 A038248
Adjacent sequences: A116550 A116551 A116552 * A116554 A116555 A116556
|
|
|
KEYWORD
| nonn,uned,obsc
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Mar 15 2006
|
| |
|
|
