OFFSET
1,1
COMMENTS
LINKS
MAPLE
filter:= proc(n, t) local x, d, m, L, i;
x:= n;
L:= convert(x, base, 10);
for i from 1 to t do
d:= nops(L);
x:= add(L[i]*(10^(i-1) + 10^(d-i)), i=1..d);
L:= convert(x, base, 10);
if L = ListTools:-Reverse(L) then return (i=t) fi;
od;
false
end proc:
select(filter, [$1..1000], 3); # Robert Israel, Aug 26 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Offset corrected by Robert Israel, Aug 26 2024
STATUS
approved