OFFSET
1,1
COMMENTS
If x is in the sequence, then so is 10*x. - Robert Israel, Feb 24 2020
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
2152 and 2512 are both multiples of 8.
MAPLE
revdigs:= proc(n) local L;
L:= convert(n, base, 10);
add(L[-i]*10^(i-1), i=1..nops(L))
end proc:
filter:= proc(n) local v;
v:= revdigs(n);
v <> n and v mod 8 = 0
end proc:
select(filter, [seq(i, i=8..5000, 8)]); # Robert Israel, Feb 24 2020
PROG
(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; .
CROSSREFS
KEYWORD
AUTHOR
Amarnath Murthy, Jul 01 2001
EXTENSIONS
Corrected and extended by Dean Hickerson, Jul 06, 2001
STATUS
approved