OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local L, S;
L:= convert(n, base, 5);
S:= convert(L[2..-1] - L[1..-2], set);
max(S)<=1 and min(S)>=-1
end proc:
select(filter, [$1..1000]); # Robert Israel, Nov 16 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved