login
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
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
Cf. A080310.
Sequence in context: A369908 A078710 A175763 * A145369 A145370 A130322
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Mar 02 2003
STATUS
approved