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.

A334532 Binary palindromic numbers that are also binary Niven and binary Smith numbers.

Original entry on oeis.org

22517, 317273, 5876429, 7129499, 18659953, 20053785, 24328605, 28676955, 31134135, 88700053, 92254197, 95682157, 96316909, 97462173, 117812487, 120026919, 120303271, 120323751, 128167471, 133396095, 133984767, 292610513, 309416393, 314572713, 348580965, 351400421
Offset: 1

Views

Author

Amiram Eldar, May 05 2020

Keywords

Examples

			The binary representation of 22517 is 101011111110101 which is palindromic. The number of 1's in its binary representation is 11 which is a divisor of 22517, hence 22517 is a binary Niven. It is also a binary Smith number since its prime factorization, 11 * 23 * 89, is 1011 * 10111 * 1011001 in binary representation, and (1 + 0 + 1 + 1) + (1 + 0 + 1 + 1 + 1) + (1 + 0 + 1 + 1 + 0 + 0 + 1) = 3 + 4 + 4 = 11 is equal to the number of 1's in its binary representation.
		

Crossrefs

Intersection of A006995, A049445 and A278909.
Intersection of any two of the sequences A334529, A334530 and A334531.
Cf. A334528.

Programs

  • Mathematica
    binWt[n_] := DigitCount[n, 2, 1]; binPalNivenSmithQ[n_] := Divisible[n, (bw = Plus @@ (d = IntegerDigits[n, 2]))] && PalindromeQ[d] && CompositeQ[n] && Plus @@ (Last@# * binWt[First@#] & /@ FactorInteger[n]) == bw; Select[Range[2*10^6], binPalNivenSmithQ]

A337295 Reversible binary Smith numbers: binary Smith numbers (A278909) whose binary reversal (A030101) is also a binary Smith number.

Original entry on oeis.org

15, 51, 85, 159, 190, 249, 303, 471, 489, 639, 679, 763, 765, 771, 799, 843, 893, 917, 951, 995, 1010, 1017, 1023, 1167, 1203, 1285, 1467, 1501, 1615, 1630, 1641, 1707, 1742, 1773, 1788, 1929, 1939, 1970, 2015, 2167, 2319, 2367, 2493, 2787, 2931, 2975, 3033, 3055
Offset: 1

Views

Author

Amiram Eldar, Aug 21 2020

Keywords

Examples

			159 is a binary Smith number: 159 = 3 * 53 is in binary representation 10011111 = 11 * 110101, and (1 + 0 + 0 + 1 + 1 + 1 + 1 + 1) = (1 + 1) + (1 + 1 + 0 + 1 + 0 + 1) = 6. The binary reversal of 159 = 10011111_2 is 249 = 11111001_2 which is also a binary Smith number: 249 = 3 * 83 is in binary representation 11111001 = 11 * 1010011, and (1 + 1 + 1 + 1 + 1 + 0 + 0 + 1) = (1 + 1) + (1 + 0 + 1 + 0 + 0 + 1 + 1) = 6. Therefore, 159 is a term.
		

Crossrefs

The binary version of A104171.
Subsequence of A278909.
A334530 is a subsequence.
Cf. A030101.

Programs

  • Mathematica
    binSmithQ[n_] := CompositeQ[n] && Plus @@ (Last @#* DigitCount[First@#, 2, 1] & /@ FactorInteger[n]) == DigitCount[n, 2, 1]; rev[n_] := FromDigits[Reverse @ IntegerDigits[n, 2], 2]; Select[Range[3000], binSmithQ[#] && binSmithQ[rev[#]] &]
Showing 1-2 of 2 results.