

A037477


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


1



0, 1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 15, 16, 18, 19, 20, 21, 22, 23, 24, 25, 27, 28, 29, 30, 31, 32, 33, 34, 36, 37, 38, 39, 40, 41, 42, 43, 45, 46, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 61, 63, 64, 65, 66, 67, 68, 69, 70, 81, 82, 83, 84, 85
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,3


COMMENTS

Also: numbers that do not contain the digit 8 in their base 9 expansion.  M. F. Hasler, Oct 05 2014


LINKS

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


FORMULA

For n<64, a(n) = floor(9n/8) = A248375(n).  M. F. Hasler, Oct 05 2014


EXAMPLE

a(63) = 7*9+7 = 70 since 63 = 77[8], i.e., "77" when written in base 8;
a(64) = 1*9^2 = 81 since 64 = 100[8].  M. F. Hasler, Oct 05 2014


MATHEMATICA

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


PROG

(PARI) a(n)=vector(#n=digits(n, 8), i, 9^(#ni))*n~ \\ M. F. Hasler, Oct 05 2014


CROSSREFS

Cf. A020657, A037459, ..., A037465, ..., A037470, ..., A037479, A248375.
Sequence in context: A171524 A052421 A248375 * A277050 A013937 A118065
Adjacent sequences: A037474 A037475 A037476 * A037478 A037479 A037480


KEYWORD

nonn,base


AUTHOR

Clark Kimberling


EXTENSIONS

Offset changed to 0 by Clark Kimberling, Aug 14 2012


STATUS

approved



