OFFSET
1,2
COMMENTS
MATHEMATICA
binPalQ[n_] := PalindromeQ @ IntegerDigits[n, 2];
binAllDivPalQ[n_] := binPalQ[n] && AllTrue[Most @ Divisors[n], binPalQ];
divNumMax = 0; seq={}; Do[If[binAllDivPalQ[n] && (divNum = DivisorSigma[0, n]) > divNumMax, divNumMax = divNum; AppendTo[seq, n]], {n, 1, 2*10^5}]; seq
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Nov 29 2019
STATUS
approved