This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A330815 #4 Jan 02 2020 16:19:22 %S A330815 1,3,9,15,45,135,189,315,495,765,2079,3465,4095,8415,12285,45045, %T A330815 69615,135135,405405,528255,675675,765765,2297295,5810805,11486475, %U A330815 17432415,29054025,32927895,43648605,50331645,98783685,184549365,296351055,392837445,553648095 %N A330815 Numbers with a record number of divisors whose binary expansion is palindromic. %C A330815 Indices of records of A175242. %C A330815 The corresponding number of binary palindromic divisors are 1, 2, 3, 4, 6, 7, 8, 9, 10, 12, 13, 15, 17, 18, 22, 26, 27, 33, 34, 35, 37, 39, 47, 50, 51, 54, 55, 56, 57, 60, 70, 71, 74, 76, 90, ... %e A330815 9 is a term since it has 3 binary palindromic divisors, 1, 3 and 9, whose binary representations are 1, 11 and 1001. All the numbers below 9 have less than 3 binary palindromic divisors. %t A330815 binPalDiv[n_] := DivisorSum[n, 1 &, PalindromeQ @ IntegerDigits[#, 2] &]; bmax = 0; seq = {}; Do[b = binPalDiv[n]; If[b > bmax, bmax = b; AppendTo[seq, n]], {n, 1, 10^5}]; seq %Y A330815 Cf. A006995, A175242, A329419. %K A330815 nonn,base %O A330815 1,2 %A A330815 _Amiram Eldar_, Jan 01 2020