OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local L;
L:= convert(n, base, 2):
nops(select(i -> L[i] = L[-i], [$1..nops(L)]))=4
end proc:
select(filter, [$1..1000]); # Robert Israel, Nov 10 2024
CROSSREFS
KEYWORD
nonn,base,changed
AUTHOR
EXTENSIONS
Name corrected by Sean A. Irvine, Aug 20 2021
Name corrected by Robert Israel, Nov 10 2024
STATUS
approved