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

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

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A247832 A047368 A020657 * A187394 A057907 A109234

Adjacent sequences: A037467 A037468 A037469 * A037471 A037472 A037473

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Offset changed to 0 by Clark Kimberling, Aug 14 2012

Status

approved