OFFSET
1,2
COMMENTS
Permutations with leading zeros are not considered as palindromic, thus (for example) 10 is not included in the sequence.
Also numbers in which at most 1 digit occurs an odd number of times and (if there is more than one digit) at least 2 digits are nonzero. - David A. Corneth, Aug 21 2016, corrected by Robert Israel, Aug 31 2016
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local L, M;
if n < 10 then return true fi;
L:= convert(n, base, 10);
M:= [seq(numboccur(j, L), j=0..9)];
convert(M mod 2, `+`) <= 1 and convert(M[2..-1], `+`)>=2
end proc:
select(filter, [$1..1000]); # Robert Israel, Aug 31 2016
PROG
(PARI) is(n) = {my(v = concat(vecsort(digits(n)), ["a"]), prev=1, odd=0); if(#v>2&&v[#v-2]==0, return(0)); for(i=1, #v-1, if(v[i]!=v[i+1], odd+=(i-prev+1)%2; if(odd==2, return(0)); prev = i + 1)); 1} \\ David A. Corneth, Aug 21 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Judson Neer, Aug 19 2016
EXTENSIONS
101 inserted by Robert Israel, Aug 31 2016
STATUS
approved