OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
95 is a term since the binary representations of its divisors, 1, 5, 19, and 95, are 1, 101, 10011 and 1011111, and their binary reversals, 1, 101, 11001 and 1111101, or 1, 5, 25 and 125 in decimal representation, are the divisors of 125, which is the binary reversal of 95, and 19 and 95 are not binary palindromes.
MATHEMATICA
binPalQ[n_] := PalindromeQ @ IntegerDigits[n, 2]; Select[Range[1, 4000, 2], CompositeQ[#] && (Divisors @ IntegerReverse[#, 2]) == IntegerReverse[(d = Divisors[#]), 2] && !AllTrue[Rest[d], binPalQ] &]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Jan 23 2020
STATUS
approved