OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local L, i;
L:= convert(n, base, 9);
andmap(t -> type(L[t], even), [seq(i, i=nops(L)-1 .. 1, -2)])
end proc:
select(filter, [$1..200]); # Robert Israel, Jun 02 2026
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Definition corrected by Sean A. Irvine, Nov 17 2020
STATUS
approved
