%I A070246
%S A070246 1,1,1,1,1,1,1,1,1,10,1,28,403,574,85,976,1207,18,1729,10,28,1,736,28,
%T A070246 1300,403,24,574,2668,10,403,736,1,1462,1855,28,2701,3154,403,10,574,
%U A070246 28,1462,1,30,736,3478,28,4606,10,85,1300,1855,30,1,3640,475,4930,5605
%N A070246 LCM(n,R(n)) / GCD(n,R(n)), where R(n) (A004086) is the digit reversal 
               of n.
%C A070246 a(1) = 1, a(18) = 18. Are there more terms for which a(k) = k?
%e A070246 a(12) = LCM(12,21)/GCD(12,21) = 84/3 = 28.
%t A070246 r[n_] := FromDigits[ Reverse[ IntegerDigits[n]]]; Table[ LCM[n, r[n]] 
               / GCD[n, r[n]], {n, 1, 65}]
%Y A070246 Sequence in context: A036188 A013617 A050999 this_sequence A085044 A059022 
               A115097
%Y A070246 Adjacent sequences: A070243 A070244 A070245 this_sequence A070247 A070248 
               A070249
%K A070246 base,nonn
%O A070246 1,10
%A A070246 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), May 09 2002
%E A070246 Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), May 10 2002