A062910 - OEIS

%I #8 Mar 22 2020 17:15:58

%S 24,42,48,60,84,204,210,216,228,234,240,246,258,264,270,276,288,294,

%T 402,408,420,426,432,438,450,456,462,468,480,486,492,498,600,612,618,

%U 624,630,642,648,654,660,672,678,684,690,804,810,816,822,834,840,846

%N Non-palindromic number and its reversal are both multiples of 6.

%H Harvey P. Dale, <a href="/A062910/b062910.txt">Table of n, a(n) for n = 1..2000</a>

%e 48 and 84 are both multiples of 6.

%t Select[Range[6,900,6],!PalindromeQ[#]&&Mod[IntegerReverse[#],6]==0&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Mar 22 2020 *)

%o (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;.

%K nonn,base,easy

%O 1,1

%A _Amarnath Murthy_, Jul 01 2001

%E More terms from _Dean Hickerson_, Jul 06, 2001