A037475 a(n)=Sum{d(i)*9^i: i=0,1,...,m}, where Sum{d(i)*7^i: i=0,1,...,m} is the base 7 representation of n.

0, 1, 2, 3, 4, 5, 6, 9, 10, 11, 12, 13, 14, 15, 18, 19, 20, 21, 22, 23, 24, 27, 28, 29, 30, 31, 32, 33, 36, 37, 38, 39, 40, 41, 42, 45, 46, 47, 48, 49, 50, 51, 54, 55, 56, 57, 58, 59, 60, 81, 82, 83, 84, 85, 86, 87, 90, 91, 92, 93, 94, 95, 96, 99, 100, 101, 102

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, 7], 9], {n, 0, 100}]
(* Clark Kimberling, Aug 14 2012 *)

Extensions

Offset changed to 0 by Clark Kimberling, Aug 14 2012