|
Search: id:A116555
|
|
|
| A116555 |
|
New alternating chaotic sequence: anti-Harborth form, 6th type. |
|
+0
1
|
|
| 1, 9, 10, 81, 91, 90, 109, 729, 820, 819, 991, 810, 991, 981, 1180, 6561, 7399, 7380, 8929, 7371, 9010, 8919, 10729, 7290, 9091, 8919, 10720, 8829, 10801, 10620, 12781, 59049, 66790, 66591, 80551, 66420, 81199, 80361, 96670, 66339, 82639, 81090
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
There seem to be a range of sequences of {even, odd} the type: b[n_?EvenQ] := (2*m-1)*b[n/2] b[n_?OddQ] := 2*m*b[(n - 1)/2] + b[(n - 3)/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, 9*a(n/2],10*a((n-1)/2)+a((n-3)/2)]
|
|
MATHEMATICA
|
b[0] := 0 b[1] := 1 b[n_?EvenQ] := b[n] = 9*b[n/2] b[n_?OddQ] := b[n] = 10*b[(n - 1)/2] + b[(n - 3)/2] a = Table[b[n], {n, 1, 70}]
|
|
CROSSREFS
|
Sequence in context: A101242 A033046 A025635 this_sequence A038300 A041039 A041176
Adjacent sequences: A116552 A116553 A116554 this_sequence A116556 A116557 A116558
|
|
KEYWORD
|
nonn,uned,probation,obsc
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Mar 15 2006
|
|
|
Search completed in 0.002 seconds
|
