login
Numbers all of whose divisors are binary palindromes.
13

%I #11 Nov 30 2019 09:19:47

%S 1,3,5,7,9,15,17,21,27,31,45,51,63,73,85,93,107,119,127,153,189,219,

%T 255,257,313,365,381,443,511,765,771,1193,1241,1285,1453,1533,1571,

%U 1619,1787,1799,1831,1879,2313,3579,3855,4369,4889,5113,5189,5397,5557,5869

%N Numbers all of whose divisors are binary palindromes.

%C Subsequence of A163410, and differs from it from n = 65.

%H Amiram Eldar, <a href="/A329419/b329419.txt">Table of n, a(n) for n = 1..10000</a>

%e 15 is in the sequence since the binary representations of its divisors, 1, 3, 5, and 15, are all palindromes: 1, 11, 101, and 1111.

%t binPalQ[n_] := PalindromeQ @ IntegerDigits[n, 2]; seqQ[n_] := binPalQ[n] && AllTrue[Most @ Divisors[n], binPalQ]; Select[Range[10^4], seqQ]

%Y Cf. A006995, A062687, A163410.

%Y Supersequence of A016041.

%K nonn,base

%O 1,2

%A _Amiram Eldar_, Nov 29 2019