|
Search: id:A116526
|
|
|
| A116526 |
|
a(0)=1, a(1)=1, a(n)=9a(n/2) for n=2,4,6,..., a(n)=8a((n-1)/2)+a((n+1)/2) for n=3,5,7,... |
|
+0
1
|
|
| 0, 1, 9, 17, 81, 89, 153, 217, 729, 737, 801, 865, 1377, 1441, 1953, 2465, 6561, 6569, 6633, 6697, 7209, 7273, 7785, 8297, 12393, 12457, 12969, 13481, 17577, 18089, 22185, 26281, 59049, 59057, 59121, 59185, 59697, 59761, 60273, 60785, 64881
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
COMMENT
|
A 9-divide version of A084230.
The interest this one has is in the prime form of even odd 2^n+1, 2^n.
|
|
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
|
|
MAPLE
|
a:=proc(n) if n=0 then 0 elif n=1 then 1 elif n mod 2 = 0 then 9*a(n/2) else 8*a((n-1)/2)+a((n+1)/2) fi end: seq(a(n), n=0..45);
|
|
MATHEMATICA
|
b[0] := 0 b[1] := 1 b[n_?EvenQ] := b[n] = 9*b[n/2] b[n_?OddQ] := b[n] = 8*b[(n - 1)/2] + b[(n + 1)/2] a = Table[b[n], {n, 1, 25}]
|
|
CROSSREFS
|
Cf. A006046, A077465.
Sequence in context: A118852 A118527 A166705 this_sequence A015443 A121442 A049440
Adjacent sequences: A116523 A116524 A116525 this_sequence A116527 A116528 A116529
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Mar 15 2006
|
|
EXTENSIONS
|
Edited by N. J. A. Sloane (njas(AT)research.att.com), Apr 16 2005
|
|
|
Search completed in 0.002 seconds
|
