cp's OEIS Frontend

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.

Showing 1-2 of 2 results.

A331662 Odd composite numbers k such that the divisors of the binary reversal of k (A030101) are the binary reversals of the divisors of k.

Original entry on oeis.org

9, 15, 21, 27, 45, 51, 63, 85, 93, 95, 111, 119, 123, 125, 153, 187, 189, 219, 221, 255, 335, 365, 381, 485, 511, 597, 629, 655, 681, 697, 765, 771, 831, 965, 1011, 1139, 1241, 1285, 1389, 1461, 1533, 1535, 1563, 1649, 1731, 1791, 1799, 1983, 2031, 2043, 2045
Offset: 1

Views

Author

Amiram Eldar, Jan 23 2020

Keywords

Examples

			9 is a term since the binary representations of its divisors, 1, 3 and 9, are palindromic: 1, 11 and 1001, i.e., the binary reversals of themselves.
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, 1111101, or  1, 5, 25 and 125 in decimal representation, are the divisors of 125, which is the binary reversal of 95.
		

Crossrefs

Cf. A030101.
A329419, A331663 and A331664 are subsequences.

Programs

  • Mathematica
    Select[Range[1, 2000, 2], CompositeQ[#] && (Divisors @ IntegerReverse[#, 2]) == IntegerReverse[Divisors[#], 2] &]

A331663 Odd composite numbers k with at least one divisor that is not a binary palindrome (A006995) such that the divisors of the binary reversal of k (A030101) are the binary reversals of the divisors of k.

Original entry on oeis.org

95, 111, 123, 125, 187, 221, 335, 485, 597, 629, 655, 681, 697, 831, 965, 1011, 1139, 1389, 1461, 1535, 1563, 1649, 1731, 1791, 1983, 2031, 2043, 2045, 2227, 2493, 2605, 2733, 2827, 2885, 2901, 3033, 3099, 3279, 3281, 3327, 3341, 3459, 3647, 3891, 4039, 4083
Offset: 1

Views

Author

Amiram Eldar, Jan 23 2020

Keywords

Examples

			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.
		

Crossrefs

Complement of A329419 with respect to A331662.
A331664 is a subsequence.

Programs

  • Mathematica
    binPalQ[n_] := PalindromeQ @ IntegerDigits[n, 2]; Select[Range[1, 4000, 2], CompositeQ[#] && (Divisors @ IntegerReverse[#, 2]) == IntegerReverse[(d = Divisors[#]), 2] && !AllTrue[Rest[d], binPalQ] &]
Showing 1-2 of 2 results.