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,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A260581 A179772 A047354 * A020675 A317303 A045980

Adjacent sequences: A037452 A037453 A037454 * A037456 A037457 A037458

Keyword

nonn,base

Author

Clark Kimberling

Extensions

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

Status

approved