|
Search: id:A116553
|
|
|
| A116553 |
|
New alternating chaotic sequence: anti-Harborth form, 4th type. |
|
+0
1
|
|
| 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; 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, 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: A137080 A064827 A025622 this_sequence A034497 A136888 A038248
Adjacent sequences: A116550 A116551 A116552 this_sequence A116554 A116555 A116556
|
|
KEYWORD
|
nonn,uned,probation,obsc
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Mar 15 2006
|
|
|
Search completed in 0.002 seconds
|
