|
| |
|
|
A084471
|
|
Change 0 to 00 in binary representation of n.
|
|
6
| |
|
|
1, 4, 3, 16, 9, 12, 7, 64, 33, 36, 19, 48, 25, 28, 15, 256, 129, 132, 67, 144, 73, 76, 39, 192, 97, 100, 51, 112, 57, 60, 31, 1024, 513, 516, 259, 528, 265, 268, 135, 576, 289, 292, 147, 304, 153, 156, 79, 768, 385, 388, 195, 400, 201, 204, 103, 448, 225
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| a(n) = n iff n = 2^k - 1, k>0.
A023416(a(n))=A023416(n)*2; A000120(a(n))=A000120(n);
|
|
|
FORMULA
| a(1)=1, a(2*k+1)=2*a(k)+1, a(2*k)=4*a(k).
|
|
|
MATHEMATICA
| f[n_] := FromDigits[Flatten[IntegerDigits[n, 2] /. {0 -> {0, 0}}], 2]; Array[f, 60] [From Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 10 2009]
|
|
|
CROSSREFS
| Cf. A084472(n)=A007088(a(n)), A084473, A038573.
Ordered terms are in A060142.
Cf. A088698, A175047. [From Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 10 2009]
Sequence in context: A077215 A065679 A062776 * A127675 A058557 A038233
Adjacent sequences: A084468 A084469 A084470 * A084472 A084473 A084474
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), May 27 2003
|
| |
|
|
