A068823 a(n) = lcm(n, c(n)), where c(n) is the 10's complement of n.

9, 8, 21, 12, 5, 12, 21, 8, 9, 90, 979, 264, 1131, 602, 255, 336, 1411, 738, 1539, 80, 1659, 858, 1771, 456, 75, 962, 1971, 504, 2059, 210, 2139, 544, 2211, 1122, 455, 576, 2331, 1178, 2379, 120, 2419, 1218, 2451, 616, 495, 1242, 2491, 624, 2499, 50

Offset

1,1

Links

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

Example

a(45) = 495 as 10's complement of 45 is 100 - 45 = 55 and lcm(45, 55) = 495.

Maple

a:=n-> ilcm((10^length(n)-n), n):
seq(a(n), n=1..100);  # Alois P. Heinz, Sep 22 2015

Mathematica

LCM[#, 10^(IntegerLength[#]) - #] & /@ Range[50] (* Jayanta Basu, Aug 07 2013 *)

Crossrefs

Cf. A068822.

Sequence in context: A296615 A340446 A063561 * A264301 A251091 A159078

Adjacent sequences: A068820 A068821 A068822 * A068824 A068825 A068826

Keyword

easy,nonn,look,base

Author

Amarnath Murthy, Mar 08 2002

Extensions

a(20) corrected by Jayanta Basu, Aug 07 2013

Status

approved