%I #14 Jan 03 2021 14:36:18
%S 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,
%T 49,50,51,54,55,56,57,72,73,74,75,78,79,80,81,84,85,86,87,90,91,92,93,
%U 108,109,110,111,114,115,116,117,120,121,122,123,126,127,128
%N 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.
%H Clark Kimberling, <a href="/A037460/b037460.txt">Table of n, a(n) for n = 0..1000</a>
%t Table[FromDigits[RealDigits[n, 4], 6], {n, 0, 100}] (* _Clark Kimberling_, Aug 14 2012 *)
%o (Julia)
%o function a(n)
%o m, r, b = n, 0, 1
%o while m > 0
%o m, q = divrem(m, 4)
%o r += b * q
%o b *= 6
%o end
%o r end; [a(n) for n in 0:62] |> println # _Peter Luschny_, Jan 03 2021
%K nonn,base
%O 0,3
%A _Clark Kimberling_
%E Offset changed to 0 by _Clark Kimberling_, Aug 14 2012
|