|
|
A062910
|
|
Non-palindromic number and its reversal are both multiples of 6.
|
|
1
|
|
|
24, 42, 48, 60, 84, 204, 210, 216, 228, 234, 240, 246, 258, 264, 270, 276, 288, 294, 402, 408, 420, 426, 432, 438, 450, 456, 462, 468, 480, 486, 492, 498, 600, 612, 618, 624, 630, 642, 648, 654, 660, 672, 678, 684, 690, 804, 810, 816, 822, 834, 840, 846
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
48 and 84 are both multiples of 6.
|
|
MATHEMATICA
|
Select[Range[6, 900, 6], !PalindromeQ[#]&&Mod[IntegerReverse[#], 6]==0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 22 2020 *)
|
|
PROG
|
(ARIBAS): n := 6; stop := 2020; 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
|
|
|
|