|
%I
%S 80,800,840,880,2136,2152,2176,2192,2304,2320,2328,2344,2360,2368,
%T 2384,2512,2536,2576,2592,2704,2720,2728,2744,2760,2768,2784,2912,
%U 2936,2952,2976,4016,4032,4056,4072,4096,4200,4208,4240,4248,4264,4280,4288,4416
%N Non-palindromic number and its reversal are both multiples of 8.
%C If x is in the sequence, then so is 10*x. - _Robert Israel_, Feb 24 2020
%H Robert Israel, <a href="/A062911/b062911.txt">Table of n, a(n) for n = 1..10000</a>
%e 2152 and 2512 are both multiples of 8.
%p revdigs:= proc(n) local L;
%p L:= convert(n,base,10);
%p add(L[-i]*10^(i-1),i=1..nops(L))
%p end proc:
%p filter:= proc(n) local v;
%p v:= revdigs(n);
%p v <> n and v mod 8 = 0
%p end proc:
%p select(filter, [seq(i,i=8..5000,8)]); # _Robert Israel_, Feb 24 2020
%o (ARIBAS): n := 8; stop := 4500; 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,look
%O 1,1
%A _Amarnath Murthy_, Jul 01 2001
%E Corrected and extended by _Dean Hickerson_, Jul 06, 2001
|
