|
%I #4 May 04 2017 08:39:51
%S 4,8,40,44,48,80,84,88,212,216,232,236,252,256,272,276,292,296,400,
%T 404,408,420,424,428,440,444,448,460,464,468,480,484,488,612,616,632,
%U 636,652,656,672,676,692,696,800,804,808,820,824,828,840,844,848,860,864
%N Number and its reversal are both multiples of 4.
%e 256 and 652 are both multiples of 4.
%t Select[4*Range[600],Divisible[IntegerReverse[#],4]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 04 2017 *)
%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 04 2017
|
