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

0, 1, 2, 7, 8, 9, 14, 15, 16, 49, 50, 51, 56, 57, 58, 63, 64, 65, 98, 99, 100, 105, 106, 107, 112, 113, 114, 343, 344, 345, 350, 351, 352, 357, 358, 359, 392, 393, 394, 399, 400, 401, 406, 407, 408, 441, 442, 443, 448, 449, 450, 455, 456, 457, 686, 687

Offset: 0

Author

Clark Kimberling

Keywords

• nonn
• base

Links

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

Programs

Mathematica

Table[FromDigits[RealDigits[n, 3], 7], {n, 0, 100}]
(* Clark Kimberling, Aug 13 2012 *)

Extensions

Changed offset to 0, Clark Kimberling, Aug 13 2012.