A068637 a(n) = Max(n, R(n)), where R(n) (A004086) = digit reversal of n.

1, 2, 3, 4, 5, 6, 7, 8, 9, 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, 70, 71

Offset

1,2

Comments

a(n) = A004186(n) for n <= 100. - Reinhard Zumkeller, Apr 03 2015

Links

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

Example

a(12) = max(12,21) = 21. a(34632) = max(34632,23643) = 34632.

Maple

a:= n-> max(n, (s-> parse(cat(seq(s[-i], i=1..length(s)))))(""||n)):
seq(a(n), n=1..100);  # Alois P. Heinz, Aug 22 2015

Mathematica

Table[Max[n, IntegerReverse[n]], {n, 100}] (* The program uses the IntegerReverse function from Mathematica version 10 *) (* Harvey P. Dale, Jan 10 2016 *)

Prog

(Haskell)
a068637 n = max n $ a004086 n  -- Reinhard Zumkeller, Apr 03 2015

Crossrefs

Cf. A068636.

Cf. A004086, A004186.

Sequence in context: A336956 A352152 A225805 * A004186 A034704 A362076

Adjacent sequences: A068634 A068635 A068636 * A068638 A068639 A068640

Keyword

base,easy,nonn,hear,look

Author

Amarnath Murthy, Feb 27 2002

Extensions

Wrong a(13)=22 removed by Reinhard Zumkeller, Apr 03 2015

Status

approved