login
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.
2

%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.