A068634 a(n) = lcm(n, R(n)), where R(n) (A004086) = digit reversal of n.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 84, 403, 574, 255, 976, 1207, 162, 1729, 20, 84, 22, 736, 168, 1300, 806, 216, 1148, 2668, 30, 403, 736, 33, 1462, 1855, 252, 2701, 3154, 1209, 40, 574, 168, 1462, 44, 270, 1472, 3478, 336, 4606, 50, 255, 1300, 1855, 270, 55

Offset

1,2

Links

Alois P. Heinz, Table of n, a(n) for n = 1..10000

Example

a(12) = lcm(12,21) = 84.

Maple

r:= proc(n) local q;
      `if`(n<10, n, irem(n, 10, 'q') *10^(length(n)-1) +r(q))
    end:
a:= n-> ilcm(n, r(n)):
seq(a(n), n=1..100);  # Alois P. Heinz, Aug 16 2012

Mathematica

Array[LCM[#, FromDigits[Reverse[IntegerDigits[#]]]]&, 50] (* Harvey P. Dale, Dec 13 2011 *)

Crossrefs

Sequence in context: A088599 A004862 A188649 * A049872 A239218 A263563

Adjacent sequences: A068631 A068632 A068633 * A068635 A068636 A068637

Keyword

base,easy,nonn,look

Author

Amarnath Murthy, Feb 27 2002

Extensions

More terms from Alois P. Heinz, Aug 16 2012

Status

approved