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

0, 1, 2, 3, 4, 7, 8, 9, 10, 11, 14, 15, 16, 17, 18, 21, 22, 23, 24, 25, 28, 29, 30, 31, 32, 49, 50, 51, 52, 53, 56, 57, 58, 59, 60, 63, 64, 65, 66, 67, 70, 71, 72, 73, 74, 77, 78, 79, 80, 81, 98, 99, 100, 101, 102, 105, 106, 107, 108, 109, 112, 113, 114, 115

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A326784 A047337 A039049 * A285405 A305441 A121405

Adjacent sequences: A037463 A037464 A037465 * A037467 A037468 A037469

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Offset changed to 0 by Clark Kimberling, Aug 14 2012

Status

approved