|
%I #17 Mar 18 2018 04:06:57
%S 9,8,21,12,5,12,21,8,9,90,979,264,1131,602,255,336,1411,738,1539,80,
%T 1659,858,1771,456,75,962,1971,504,2059,210,2139,544,2211,1122,455,
%U 576,2331,1178,2379,120,2419,1218,2451,616,495,1242,2491,624,2499,50
%N a(n) = lcm(n, c(n)), where c(n) is the 10's complement of n.
%H Alois P. Heinz, <a href="/A068823/b068823.txt">Table of n, a(n) for n = 1..10000</a>
%e a(45) = 495 as 10's complement of 45 is 100 - 45 = 55 and lcm(45, 55) = 495.
%p a:=n-> ilcm((10^length(n)-n), n):
%p seq(a(n), n=1..100); # _Alois P. Heinz_, Sep 22 2015
%t LCM[#, 10^(IntegerLength[#]) - #] & /@ Range[50] (* _Jayanta Basu_, Aug 07 2013 *)
%Y Cf. A068822.
%K easy,nonn,look,base
%O 1,1
%A _Amarnath Murthy_, Mar 08 2002
%E a(20) corrected by _Jayanta Basu_, Aug 07 2013
|
