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

Author

Amarnath Murthy, Mar 08 2002

Keywords

• easy
• nonn
• look
• base

Examples

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

Links

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

Crossrefs

Cf. A068822.

Programs

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 *)

Extensions

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