|
%I #11 Nov 25 2020 19:43:09
%S 6,24,42,48,60,66,84,204,210,216,222,228,234,240,246,252,258,264,270,
%T 276,282,288,294,402,408,414,420,426,432,438,444,450,456,462,468,474,
%U 480,486,492,498,600,606,612,618,624,630,636,642,648,654,660,666,672
%N Number and its reversal are both multiples of 6.
%H Harvey P. Dale, <a href="/A062899/b062899.txt">Table of n, a(n) for n = 1..1000</a>
%e 216 and 612 are both multiples of 6.
%t Select[6*Range[130],Divisible[FromDigits[Reverse[IntegerDigits[#]]],6]&] (* _Harvey P. Dale_, May 09 2012 *)
%t Select[Range[700],Mod[#,6]==Mod[IntegerReverse[#],6]==0&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Nov 25 2020 *)
%K nonn,base,easy
%O 1,1
%A _Amarnath Murthy_, Jul 01 2001
%E More terms from Larry Reeves (larryr(AT)acm.org), Jul 02 2001
%E Corrected by Harvey P. Dale, May 09 2012
|
