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
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Offset changed to 0 by Clark Kimberling, Aug 14 2012
STATUS
approved