A037468 a(n)=Sum{d(i)*9^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, 9, 10, 11, 12, 13, 18, 19, 20, 21, 22, 27, 28, 29, 30, 31, 36, 37, 38, 39, 40, 81, 82, 83, 84, 85, 90, 91, 92, 93, 94, 99, 100, 101, 102, 103, 108, 109, 110, 111, 112, 117, 118, 119, 120, 121, 162, 163, 164, 165, 166, 171, 172, 173, 174, 175
Offset: 0
Links
- Clark Kimberling, Table of n, a(n) for n = 0..1000
Crossrefs
Cf. A051382.
Programs
-
Mathematica
Table[FromDigits[RealDigits[n, 5], 9], {n, 0, 100}] (* Clark Kimberling, Aug 14 2012 *)
Extensions
Offset changed to 0 by Clark Kimberling, Aug 14 2012