|
%I #7 Aug 14 2013 12:18:20
%S 10,20,30,40,50,60,70,80,90,100,110,200,220,300,330,400,440,500,510,
%T 540,550,600,660,700,770,800,810,880,900,990,1000,1010,1100,1110,1210,
%U 1310,1410,1510,1610,1710,1810,1910,2000,2020,2100,2120,2200,2220,2320,2420
%N Non-palindromic numbers which are divisible by their reversal.
%C A004086(a(n)) = A027751(a(n),k) for some k: 1 <= k < A001221(n); A031877 contains all terms not ending with zero. - _Reinhard Zumkeller_, Jul 15 2013
%H Reinhard Zumkeller, <a href="/A118959/b118959.txt">Table of n, a(n) for n = 1..10000</a>
%e 510 is in the sequence because 510 is a non-palindromic number divisible by its reversal 15.
%o (Haskell)
%o a118959 n = a118959_list !! (n-1)
%o a118959_list = filter
%o (\x -> let x' = a004086 x in x' /= x && x `mod` x' == 0) [1..]
%o -- _Reinhard Zumkeller_, Jul 15 2013
%Y Subsequence of A029742; A031877 is a subsequence.
%K base,nonn
%O 1,1
%A Luc Stevens (lms022(AT)yahoo.com), May 25 2006
|
