A037460 a(n) = Sum{d(i)*6^i: i=0,1,...,m}, where Sum{d(i)*4^i: i=0,1,...,m} is the base 4 representation of n.

0, 1, 2, 3, 6, 7, 8, 9, 12, 13, 14, 15, 18, 19, 20, 21, 36, 37, 38, 39, 42, 43, 44, 45, 48, 49, 50, 51, 54, 55, 56, 57, 72, 73, 74, 75, 78, 79, 80, 81, 84, 85, 86, 87, 90, 91, 92, 93, 108, 109, 110, 111, 114, 115, 116, 117, 120, 121, 122, 123, 126, 127, 128

Offset

0,3

Links

Clark Kimberling, Table of n, a(n) for n = 0..1000

Mathematica

Table[FromDigits[RealDigits[n, 4], 6], {n, 0, 100}] (* Clark Kimberling, Aug 14 2012 *)

Prog

(Julia)
function a(n)
    m, r, b = n, 0, 1
    while m > 0
        m, q = divrem(m, 4)
        r += b * q
        b *= 6
    end
r end; [a(n) for n in 0:62] |> println # Peter Luschny, Jan 03 2021

Crossrefs

Sequence in context: A336205 A047246 A039029 * A285134 A161824 A102806

Adjacent sequences: A037457 A037458 A037459 * A037461 A037462 A037463

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Offset changed to 0 by Clark Kimberling, Aug 14 2012

Status

approved