|
| |
|
|
A082392
|
|
Expansion of (1/x) * sum(k>=0, x^2^k/(1-2x^2^(k+1))).
|
|
1
| |
|
|
1, 1, 2, 1, 4, 2, 8, 1, 16, 4, 32, 2, 64, 8, 128, 1, 256, 16, 512, 4, 1024, 32, 2048, 2, 4096, 64, 8192, 8, 16384, 128, 32768, 1, 65536, 256, 131072, 16, 262144, 512, 524288, 4, 1048576, 1024, 2097152, 32, 4194304, 2048, 8388608, 2, 16777216
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
COMMENTS
| a(n) = 2^A025480(n) = 2^(A003602(n)-1).
|
|
|
LINKS
| R. Stephan, Some divide-and-conquer sequences ...
R. Stephan, Table of generating functions
|
|
|
FORMULA
| a(0) = 1, a(2n) = 2^n, a(2n+1) = a(n).
|
|
|
PROG
| (PARI) for(n=1, 100, l=ceil(log(n)/log(2)):t=polcoeff(sum(k=0, l, (x^2^k)/(1-2*x^2^(k+1))), n):print1(t", "))
|
|
|
CROSSREFS
| Cf. A045654.
Sequence in context: A101707 A113418 A117000 * A085086 A135530 A137206
Adjacent sequences: A082389 A082390 A082391 * A082393 A082394 A082395
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| Ralf Stephan (ralf(AT)ark.in-berlin.de), Jun 07 2003
|
| |
|
|
