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,1

Comments

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

Links

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

Formula

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

Example

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

Mathematica

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

Prog

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

Crossrefs

Cf. A073729.

Sequence in context: A364275 A351877 A073729 * A367610 A087346 A060314

Adjacent sequences: A073727 A073728 A073729 * A073731 A073732 A073733

Keyword

nonn,base,look

Author

Reinhard Zumkeller, Aug 05 2002

Status

approved