A073730 Concatenation of largest and smallest digits of n in decimal representation.

11, 22, 33, 44, 55, 66, 77, 88, 99, 10, 11, 21, 31, 41, 51, 61, 71, 81, 91, 20, 21, 22, 32, 42, 52, 62, 72, 82, 92, 30, 31, 32, 33, 43, 53, 63, 73, 83, 93, 40, 41, 42, 43, 44, 54, 64, 74, 84, 94, 50, 51, 52, 53, 54, 55, 65, 75, 85, 95, 60, 61, 62, 63, 64, 65, 66, 76, 86, 96

Offset: 1

Author

Reinhard Zumkeller, Aug 05 2002

Keywords

• nonn
• base
• look

Comments

10 <= a(n) <= 99; a(a(n))=a(n).

Examples

			a(12321)=31; a(3210123)=30; a(59387)=83; a(8923)=92.
		

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A073729.

Programs

Haskell

a073730 n = 10 * a054055 n + a054054 n
-- Reinhard Zumkeller, Jul 21 2013

Mathematica

Table[FromDigits[{Max[x = IntegerDigits[n]], Min[x]}], {n, 69}] (* Jayanta Basu, Jul 08 2013 *)

Formula

a(n) = A054055(n)*10 + A054054(n).