|
|
A080303
|
|
Rewrite 0->100 in the binary expansion of n.
|
|
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;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
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.
|
|
MATHEMATICA
|
Table[FromDigits[Flatten[IntegerDigits[n, 2]/.(0->{1, 0, 0})], 2], {n, 0, 80}] (* Harvey P. Dale, Aug 19 2021 *)
|
|
PROG
|
(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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|