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

0, 1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 12, 14, 15, 16, 17, 18, 19, 21, 22, 23, 24, 25, 26, 28, 29, 30, 31, 32, 33, 35, 36, 37, 38, 39, 40, 49, 50, 51, 52, 53, 54, 56, 57, 58, 59, 60, 61, 63, 64, 65, 66, 67, 68, 70, 71, 72, 73, 74, 75, 77, 78, 79, 80, 81, 82, 84, 85, 86

Offset: 0

Author

Clark Kimberling

Keywords

• nonn
• base

Comments

Except for the offset, identical to A020657: a(n)=A020657(n+1). - M. F. Hasler, Oct 05 2014

Links

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

Crossrefs

Essentially a duplicate of A020657. - N. J. A. Sloane, Jan 04 2016

Programs

Mathematica

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

PARI

a(n)=vector(#n=digits(n, 6), i, 7^(#n-i))*n~ \\ M. F. Hasler, Oct 05 2014

Extensions

Offset changed to 0 by Clark Kimberling, Aug 14 2012