|
| |
|
|
A163617
|
|
a(2*n) = 2 * a(n). a(2*n + 1) = 2 * a(n) + 2 + (-1)^n.
|
|
9
| |
|
|
0, 3, 6, 7, 12, 15, 14, 15, 24, 27, 30, 31, 28, 31, 30, 31, 48, 51, 54, 55, 60, 63, 62, 63, 56, 59, 62, 63, 60, 63, 62, 63, 96, 99, 102, 103, 108, 111, 110, 111, 120, 123, 126, 127, 124, 127, 126, 127, 112, 115, 118, 119, 124, 127, 126, 127, 120, 123, 126, 127, 124, 127, 126
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| Integers n>=0 such that a(n) = 3*n is A003714 Fibbinary numbers.
|
|
|
EXAMPLE
| 3*x + 6*x^2 + 7*x^3 + 12*x^4 + 15*x^5 + 14*x^6 + 15*x^7 + 24*x^8 + 27*x^9 + ...
|
|
|
MATHEMATICA
| Table[BitOr[n, 2*n], {n, 0, 100}] (* From Vladimir Joseph Stephan Orlovsky, Jul 19 2011 *)
|
|
|
PROG
| (PARI) {a(n) = bitor(n, n<<1)}
(PARI) {a(n) = if( n==0 | n==-1, n, 2 * a(n \ 2) + (n%2) * (2 + (-1)^(n \ 2)))}
|
|
|
CROSSREFS
| A163618(n) = -a(-n).
Sequence in context: A175332 A022434 A161903 * A189634 A047705 A169799
Adjacent sequences: A163614 A163615 A163616 * A163618 A163619 A163620
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Michael Somos, Aug 01 2009
|
| |
|
|
