%I #9 Apr 25 2020 11:52:35
%S 1495,1586,1677,1768,1859,2496,2587,2678,2769,3497,3588,3679,4498,
%T 4589,4940,5499,5850,5941,6760,6851,6942,7670,7761,7852,7943,8580,
%U 8671,8762,8853,8944,9490,9581,9672,9763,9854,9945,10010,10595,10686,10777,10868
%N Non-palindromic number and its reversal are both multiples of 13.
%H Harvey P. Dale, <a href="/A062912/b062912.txt">Table of n, a(n) for n = 1..1000</a>
%e 1495 and 5941 are both multiples of 13.
%t Select[Range[11000],!PalindromeQ[#]&&And@@Divisible[{#,IntegerReverse[ #]},13]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 25 2020 *)
%o (ARIBAS): n := 13; stop := 11000; m := 0; while m < stop do rev := int_reverse(m); if m <> rev and rev mod n = 0 then write(m," "); end; inc(m,n); end;
%K nonn,base,easy
%O 1,1
%A _Amarnath Murthy_, Jul 01 2001
%E Corrected and extended by _Dean Hickerson_, Jul 06, 2001