|
|
A062914
|
|
Non-palindromic number and its reversal are both multiples of 15.
|
|
1
|
|
|
510, 540, 570, 5010, 5025, 5040, 5055, 5070, 5085, 5100, 5130, 5145, 5160, 5175, 5190, 5205, 5220, 5235, 5250, 5265, 5280, 5295, 5310, 5325, 5340, 5355, 5370, 5385, 5400, 5415, 5430, 5460, 5475, 5490, 5505, 5520, 5535, 5550, 5565, 5580
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
5025 and 5205 are both multiples of 15.
|
|
MATHEMATICA
|
Select[Range[5600], !PalindromeQ[#]&&Mod[{#, IntegerReverse[#]}, 15]=={0, 0}&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 21 2018 *)
|
|
PROG
|
(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;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|