|
Search: id:A080303
|
|
|
| A080303 |
|
Rewrite 0->100 in the binary expansion of n. |
|
+0
3
|
|
| 4, 1, 12, 3, 100, 25, 28, 7, 804, 201, 204, 51, 228, 57, 60, 15, 6436, 1609, 1612, 403, 1636, 409, 412, 103, 1828, 457, 460, 115, 484, 121, 124, 31, 51492, 12873, 12876, 3219, 12900, 3225, 3228, 807, 13092, 3273, 3276, 819, 3300, 825, 828, 207, 14628
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
EXAMPLE
|
2 = 10 in binary, is rewritten as 1100 so a(2)=12. 4 = 100 in binary, is rewritten as 1100100 which is 100 as decimal number, thus a(4)=100. 5 = 101 in binary, is rewritten as 11001, 25 in binary, thus a(5)=25.
|
|
PROGRAM
|
(Scheme) (define (A080303 n) (cond ((zero? n) 4) ((= n 1) n) ((odd? n) (+ 1 (* 2 (A080303 (/ (- n 1) 2))))) (else (+ 4 (* 8 (A080303 (/ n 2)))))))
|
|
CROSSREFS
|
Cf. A080310.
Sequence in context: A072869 A064279 A078710 this_sequence A130322 A106194 A051290
Adjacent sequences: A080300 A080301 A080302 this_sequence A080304 A080305 A080306
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Antti Karttunen (my_firstname.my_surname(AT)iki.fi) Mar 02 2003
|
|
|
Search completed in 0.002 seconds
|
