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-6 of 6 results.

A342726 Niven numbers in base i-1: numbers that are divisible by the sum of their digits in base i-1.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 10, 12, 15, 16, 18, 20, 24, 25, 30, 32, 33, 35, 36, 40, 42, 44, 45, 48, 50, 54, 60, 64, 65, 66, 70, 77, 80, 88, 90, 96, 99, 100, 110, 112, 120, 124, 125, 126, 130, 140, 144, 145, 147, 150, 156, 160, 168, 170, 180, 182, 184, 185, 186, 190, 192
Offset: 1

Views

Author

Amiram Eldar, Mar 19 2021

Keywords

Comments

Numbers k that are divisible by A066323(k).
Equivalently, Niven numbers in base -4, since A066323(k) is also the sum of the digits of k in base -4.

Examples

			2 is a term since its representation in base i-1 is 1100 and 1+1+0+0 = 2 is a divisor of 2.
10 is a term since its representation in base i-1 is 111001100 and 1+1+1+0+0+1+1+0+0 = 5 is a divisor of 10.

Links

Crossrefs

Cf. A007608, A066321, A066323, A271472, A342725, A342727, A342728, A342729.
Similar sequences: A005349 (decimal), A049445 (binary), A064150 (ternary), A064438 (quaternary), A064481 (base 5), A118363 (factorial), A328208 (Zeckendorf), A328212 (lazy Fibonacci), A331085 (negaFibonacci), A333426 (primorial), A334308 (base phi), A331728 (negabinary), A342426 (base 3/2).

Programs

  • Mathematica
    v = {{0, 0, 0, 0}, {0, 0, 0, 1}, {1, 1, 0, 0}, {1, 1, 0, 1}}; q[n_] := Divisible[n, Total[Flatten @ v[[1 + Reverse @ Most[Mod[NestWhileList[(# - Mod[#, 4])/-4 &, n, # != 0 &], 4]]]]]]; Select[Range[200], q]

A342727 Digitally balanced numbers in base i-1: numbers that in base i-1 have the same number of 0's as 1's.

Original entry on oeis.org

2, 21, 26, 31, 36, 41, 46, 51, 310, 315, 325, 330, 335, 340, 345, 350, 355, 360, 365, 370, 375, 390, 395, 405, 410, 415, 420, 425, 430, 435, 455, 470, 475, 485, 490, 495, 535, 550, 555, 565, 570, 575, 580, 585, 590, 595, 600, 605, 610, 620, 625, 630, 635, 645
Offset: 1

Views

Author

Amiram Eldar, Mar 19 2021

Keywords

Examples

			2 is a term since its representation in base i-1, 1100, has 2 0's and 2 1's.
21 is a term since its representation in base i-1, 110011010001, has 6 0's and 6 1's.

Links

Crossrefs

Cf. A066321, A066323, A271472, A342725, A342726, A342728, A342729.
Similar sequences: A031443 (binary), A210619 (Zeckendorf).

Programs

  • Mathematica
    v = {{0, 0, 0, 0}, {0, 0, 0, 1}, {1, 1, 0, 0}, {1, 1, 0, 1}}; balQ[n_] := Plus @@ (d = IntegerDigits[n]) == Length[d]/2; q[n_] := balQ @ FromDigits[Flatten@v[[1 + Reverse @ Most[Mod[NestWhileList[(# - Mod[#, 4])/-4 &, n, # != 0 &], 4]]]]]; Select[Range[1000], q]

A342728 a(n) is the least number k such that A066323(k) = n.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 23, 39, 55, 71, 87, 103, 359, 615, 871, 1127, 1383, 1639, 5735, 9831, 13927, 18023, 22119, 26215, 91751, 157287, 222823, 288359, 353895, 419431, 1468007, 2516583, 3565159, 4613735, 5662311, 6710887, 23488103, 40265319, 57042535, 73819751
Offset: 0

Views

Author

Amiram Eldar, Mar 19 2021

Keywords

Comments

a(n) is the least number k whose sum of digits in base i-1 (or in base -4) is n.

Links

Crossrefs

Cf. A007608, A066321, A066323, A271472, A342725, A342726, A342727, A342729.

Programs

  • Mathematica
    Join[{0}, LinearRecurrence[{1,0,0,0,0,16,-16}, Range[7], 50]]

Formula

a(n) = n for n <= 7, and a(n) = a(n-1) + 16*a(n-6) - 16*a(n-7) for n > 7.
G.f.: x*(1 + x + x^2 + x^3 + x^4 + x^5 - 15*x^6)/(1 - x - 16*x^6 + 16*x^7). - Stefano Spezia, Mar 20 2021
From Greg Dresden, Jun 21 2021: (Start)
a(3*n+1) = (24 + (4^n)*(25 - 9*(-1)^n))/40.
a(3*n+2) = (24 + (4^n)*(50 + 6*(-1)^n))/40.
a(3*n+3) = (24 + (4^n)*(75 + 21*(-1)^n))/40. (End)

A342725 Numbers that are palindromic in base i-1.

Original entry on oeis.org

0, 1, 13, 17, 189, 205, 257, 273, 3005, 3069, 3277, 3341, 4033, 4097, 4305, 4369, 48061, 48317, 49149, 49405, 52173, 52429, 53261, 53517, 64449, 64705, 65537, 65793, 68561, 68817, 69649, 69905, 768957, 769981, 773309, 774333, 785405, 786429, 789757, 790781, 834509
Offset: 1

Views

Author

Amiram Eldar, Mar 19 2021

Keywords

Links

Crossrefs

Cf. A066321, A066323, A271472, A342726, A342727, A342728, A342729.
Similar sequences: A002113 (decimal), A006995 (binary), A014190 (base 3), A014192 (base 4), A029952 (base 5), A029953 (base 6), A029954 (base 7), A029803 (base 8), A029955 (base 9), A046807 (factorial base), A094202 (Zeckendorf), A331191 (dual Zeckendorf), A331891 (negabinary), A333423 (primorial base).

Programs

  • Mathematica
    v = {{0, 0, 0, 0}, {0, 0, 0, 1}, {1, 1, 0, 0}, {1, 1, 0, 1}}; q[n_] := PalindromeQ @ FromDigits[Flatten @ v[[1 + Reverse @ Most[Mod[NestWhileList[(# - Mod[#, 4])/-4 &, n, # != 0 &], 4]]]]]; Select[Range[0, 10^4], q]

Formula

13 is a term since its base-(i-1) presentation is 100010001 which is palindromic.

A344512 a(n) is the least number larger than 1 which is a self number in all the bases 2 <= b <= n.

Original entry on oeis.org

4, 13, 13, 13, 287, 287, 2971, 2971, 27163, 27163, 90163, 90163, 5940609, 5940609, 6069129, 6069129, 276404649, 276404649
Offset: 2

Views

Author

Amiram Eldar, May 21 2021

Keywords

Comments

Since the sequence of base-b self numbers for odd b is the sequence of the odd numbers (A005408) (Joshi, 1973), all the terms beyond a(2) are odd numbers.
For the corresponding sequence with only even bases, see A344513.
a(20) > 1.5*10^10, if it exists.

Examples

			a(2) = 4 since the least binary self number after 1 is A010061(2) = 4.
a(3) = 13 since the least binary self number after 1 which is also a self number in base 3 is A010061(4) = 13.

References

  • Vijayshankar Shivshankar Joshi, Contributions to the theory of power-free integers and self-numbers, Ph.D. dissertation, Gujarat University, Ahmedabad (India), October, 1973.
  • József Sándor and Borislav Crstici, Handbook of Number theory II, Kluwer Academic Publishers, 2004, Chapter 4, p. 384-386.

Links

Crossrefs

Cf. A003052, A010061, A010064, A010067, A010070, A339211, A339212, A339213, A339214, A339215, A342729, A344513.
Similar sequences: A016038, A217705, A225427, A226320, A228768, A258107.

Programs

  • Mathematica
    s[n_, b_] := n + Plus @@ IntegerDigits[n, b]; selfQ[n_, b_] := AllTrue[Range[n, n - (b - 1) * Ceiling @ Log[b, n], -1], s[#, b] != n &]; a[2] = 4; a[b_] := a[b] = Module[{n = a[b - 1]}, While[! AllTrue[Range[2, b], selfQ[n, #] &], n++]; n]; Array[a, 10, 2]

Formula

a(2*n+1) = a(2*n) for n >= 2.

A344513 a(n) is the least number larger than 1 which is a self number in all the even bases b = 2*k for 1 <= k <= n.

Original entry on oeis.org

4, 13, 287, 294, 6564, 90163, 1136828, 3301262, 276404649, 5643189146
Offset: 1

Views

Author

Amiram Eldar, May 21 2021

Keywords

Comments

Joshi (1973) proved that for all odd b the sequence of base-b self numbers is the sequence of odd numbers (A005408). Therefore, in this sequence the bases are restricted to even values. For the corresponding sequence with both odd and even bases, see A344512.

Examples

			a(1) = 4 since the least binary self number after 1 is A010061(2) = 4.
a(2) = 13 since the least binary self number after 1 which is also a self number in base 2*2 = 4 is A010061(4) = A010064(4) = 13.

References

  • Vijayshankar Shivshankar Joshi, Contributions to the theory of power-free integers and self-numbers, Ph.D. dissertation, Gujarat University, Ahmedabad (India), October, 1973.
  • József Sándor and Borislav Crstici, Handbook of Number theory II, Kluwer Academic Publishers, 2004, Chapter 4, p. 384-386.

Links

Crossrefs

Cf. A003052, A010061, A010064, A010067, A010070, A339211, A339212, A339213, A339214, A339215, A342729, A344512.
Similar sequences: A016038, A217705, A225427, A226320, A228768, A258107.

Programs

  • Mathematica
    s[n_, b_] := n + Plus @@ IntegerDigits[n, b]; selfQ[n_, b_] := AllTrue[Range[n, n - (b - 1) * Ceiling @ Log[b, n], -1], s[#, b] != n &]; a[1] = 4; a[n_] := a[n] = Module[{k = a[n - 1]}, While[! AllTrue[Range[1, n], selfQ[k, 2*#] &], k++]; k]; Array[a, 7]
Showing 1-6 of 6 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.