|
%I #9 Jul 21 2018 13:13:09
%S 510,540,570,5010,5025,5040,5055,5070,5085,5100,5130,5145,5160,5175,
%T 5190,5205,5220,5235,5250,5265,5280,5295,5310,5325,5340,5355,5370,
%U 5385,5400,5415,5430,5460,5475,5490,5505,5520,5535,5550,5565,5580
%N Non-palindromic number and its reversal are both multiples of 15.
%H Harvey P. Dale, <a href="/A062914/b062914.txt">Table of n, a(n) for n = 1..5000</a>
%e 5025 and 5205 are both multiples of 15.
%t Select[Range[5600],!PalindromeQ[#]&&Mod[{#,IntegerReverse[#]},15]=={0,0}&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 21 2018 *)
%o (ARIBAS): n := 15; stop := 5700; 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
|
