%I #12 Aug 03 2014 14:27:16
%S 0,1,2,7,8,9,14,15,16,49,50,51,56,57,58,63,64,65,98,99,100,105,106,
%T 107,112,113,114,343,344,345,350,351,352,357,358,359,392,393,394,399,
%U 400,401,406,407,408,441,442,443,448,449,450,455,456,457,686,687
%N a(n)=Sum{d(i)*7^i: i=0,1,...,m}, where Sum{d(i)*3^i: i=0,1,...,m} is the base 3 representation of n.
%H Clark Kimberling, <a href="/A037455/b037455.txt">Table of n, a(n) for n = 0..1000</a>
%t Table[FromDigits[RealDigits[n, 3], 7], {n, 0, 100}]
%t (* _Clark Kimberling_, Aug 13 2012 *)
%K nonn,base
%O 0,3
%A _Clark Kimberling_
%E Changed offset to 0, Clark Kimberling, Aug 13 2012.