|
%I #9 Sep 18 2016 13:26:36
%S 8,80,88,232,272,424,464,616,656,696,800,808,840,848,880,888,2112,
%T 2136,2152,2176,2192,2304,2320,2328,2344,2360,2368,2384,2512,2536,
%U 2552,2576,2592,2704,2720,2728,2744,2760,2768,2784,2912,2936,2952,2976,2992,4016,4032,4056,4072,4096
%N Number and its reversal are both multiples of 8.
%H Harvey P. Dale, <a href="/A062900/b062900.txt">Table of n, a(n) for n = 1..1000</a>
%e 2152 and 2512 are both multiples of 8.
%t Select[8*Range[700],Divisible[IntegerReverse[#],8]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 18 2016 *)
%o (ARIBAS): n := 8; stop := 4200; m := n; while m < stop do rev := int_reverse(m); if 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 Corrected and extended by _Dean Hickerson_ and _Klaus Brockhaus_, Jul 06, 2001
|
