A140316 Write n in base 3, delete 0's.

1, 2, 1, 11, 12, 2, 21, 22, 1, 11, 12, 11, 111, 112, 12, 121, 122, 2, 21, 22, 21, 211, 212, 22, 221, 222, 1, 11, 12, 11, 111, 112, 12, 121, 122, 11, 111, 112, 111, 1111, 1112, 112, 1121, 1122, 12, 121, 122, 121, 1211, 1212, 122, 1221, 1222, 2, 21, 22, 21, 211, 212, 22

Offset: 1

Author

Jonathan Vos Post, May 26 2008

Keywords

• base
• easy
• nonn

Comments

This is to A038585 as A007088 is to A007089.

Examples

			a(29) = 12 because 29 base 3 = A007089(29) = 1002 and upon deleting 0's, this becomes 12. Note the fixed points (input in decimal, output in zeroless base 3) begin 1, 2, 21, 111, ... with for example, 21 base 10 becoming 21 base 3 = A007089(21) = 210 and upon deleting 0's, this becomes 21 again; and 111 base 10 becoming A007089(111) = 11010 and upon deleting 0's, this becomes 111 again.
		

Crossrefs

Cf. A007088, A007089, A038585.

Programs

Mathematica

Table[FromDigits[DeleteCases[IntegerDigits[n,3],0]],{n,60}] (* Harvey P. Dale, Oct 23 2011 *)