OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
MAPLE
isPal := proc(L::list)
local i;
for i from 1 to nops(L)/2 do
if op(i, L) <> op(-i, L) then
return false;
end if;
end do:
true ;
end proc:
isA272670 := proc(n)
local bdgs ;
bdgs := convert(n, base, 2) ;
if isPal(bdgs) then
return false;
else
A000265(n) ;
bdgs := convert(%, base, 2) ;
isPal(bdgs) ;
end if;
end proc:
for n from 1 to 500 do
if isA272670(n) then
printf("%d, ", n) ;
end if;
end do: # R. J. Mathar, May 20 2016
PROG
(Python)
A272670_list = [n for n in range(1, 10**4) if bin(n)[2:] != bin(n)[:1:-1] and bin(n)[2:].rstrip('0') == bin(n)[:1:-1].lstrip('0')] # Chai Wah Wu, May 21 2016
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
N. J. A. Sloane, May 19 2016
STATUS
approved