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

A171606 Numbers expressible as A*B^A in two or more different ways, with A, B > 1.

Original entry on oeis.org

648, 2048, 4608, 5184, 41472, 52488, 472392, 500000, 524288, 2654208, 3125000, 4718592, 10125000, 13436928, 21233664, 30233088, 46118408, 76236552, 134217728, 169869312, 344373768, 402653184, 512000000, 648000000, 737894528, 800000000, 838860800, 922640625
Offset: 1

Views

Author

Robert Munafo, Dec 12 2009

Keywords

Comments

For any relatively prime pair A and C, there are infinitely many solutions A*B^A=C*D^C, with B and D of the form B=C^W*A^X, D=C^Y*A^Z, and W,Y constrained by AW=CY+1 and X,Z constrained by CZ=AX+1. Details and examples on Munafo web page.

Examples

			648 = 3 * 6^3 = 2 * 18^2.
5184 = 4 * 6^4 = 3 * 12^3.
344373768 = 8 * 9^8 = 3 * 486^3 = 2 * 13122^2.
922640625 = 5 * 45^5 = 3 * 675^3.
		

Crossrefs

Extensions

a(26)-a(28) from Giovanni Resta, Jul 12 2018

A255535 Numbers representable as both b^c + b + c and x^y + x - y, where b, c, x, y are integers greater than 1.

Original entry on oeis.org

14, 88, 65548, 33554459, 387420510, 1099511627800, 35184372088855, 3656158440063002, 459986536544739960976836, 1237940039285380274899124273, 6362685441135942358474828762538534230890216378
Offset: 1

Views

Author

Alex Ratushnyak, Feb 24 2015

Keywords

Comments

From Chai Wah Wu, May 17 2021: (Start)
Sequence is infinite.
If a, b > 1 and b^a-b == 0 mod a+1 then b^c+b+c is a term for c = ab(b^(a-1)-1)/(a+1), y = c/a, x = b^a.
If b > 1 and b <> 2 mod 3, then b^(2b(b-1)/3)+b(2b+1)/3 is a term.
If b > 2, then b^((b-1)(b^(b-2)-1)) + b + (b-1)(b^(b-2)-1) is a term. (End)
From Chai Wah Wu, May 18 2021: (Start)
Either c>=3 or y>=3. If c=y=2, we get b^2+b+2=x^2+x-2, i.e. (x-b)(x+b+1) = 4. Since x>1 and b>1, x+b+1>4, a contradiction.
This allows for a faster search algorithm by assuming c>=3 and y>=3. The cases c=2 and y>=3 can be dealt with by picking y>=3 and solving for b in the quadratic equation b^2+b+2=x^y+x-y. Similarly for c>=3 and y=2. This approach was used to confirm a(9). (End)
For n >= 3, we have max(c,y) >= 5. First note that c == y (mod 2). Case (c,y) = (3,3) implies (x-b)|6 and leads to quadratic equations with no integer roots. Case (c,y) = (4,2) corresponds to a quartic curve and has the only solution (b,x) = (3,9) giving a(2)=88, while case (c,y) = (2,4) has the only solution (b,x) = (3,2) giving a(1)=14. Finally, case (c,y) = (4,4) implies (x-b)|8 and leads to cubic equations with no integer roots. - Max Alekseyev, Feb 10 2025

Examples

			a(1) = 14 = 3^2 + 3 + 2 = 2^4 + 2 - 4.
a(2) = 88 = 3^4 + 3 + 4 = 9^2 + 9 - 2.
a(3) = 65548 = 4^8 + 4 + 8 = 16^4 + 16 - 4.
a(4) = 33554459 = 2^25 + 2 + 25 = 32^5 + 32 - 5.
a(5) = 387420510 = 3^18 + 3 + 18 = 27^6 + 27 - 6.
a(6) = 1099511627800 = 4^20 + 4 + 20 = 32^8 + 32 - 8.
a(7) = 35184372088855 = 8^15 + 8 + 15 = 32^9 + 32 - 9.
a(8) = 3656158440063002 = 6^20 + 6 + 20 = 36^10 + 36 - 10.
From _Michael S. Branicky_, May 15 2021: (Start)
The following are terms:
459986536544739960976836      =  7^28 +  7 + 28 =  49^14 +  49 - 14,
1237940039285380274899124273  =  4^45 +  4 + 45 =  64^15 +  64 - 15,
6362685...0216378 (46 digits) =  9^48 +  9 + 48 =  81^24 +  81 - 24,  and
1000000...0000070 (61 digits) = 10^60 + 10 + 60 = 100^30 + 100 - 30. (End)
		

Crossrefs

Programs

  • Python
    TOP = 100000000
    a = [0]*TOP
    for y in range(2,TOP//2):
      if 2**y+2+y>=TOP: break
      for x in range(2,TOP//2):
        k = x**y+x+y
        if k>=TOP: break
        a[k]=1
    for y in range(2,TOP//2):
      if 2**y+2-y>=TOP: break
      for x in range(2,TOP//2):
        k = x**y+x-y
        if k>=TOP: break
        if k>=0: a[k]|=2
    print([n for n in range(TOP) if a[n]==3])

Extensions

a(5)-a(8) from Lars Blomberg, May 19 2015
a(9) from Michael S. Branicky confirmed by Chai Wah Wu, May 18 2021
a(10)-a(11) from Michael S. Branicky confirmed by Max Alekseyev, Mar 02 2025

A316745 Numbers expressible as A*B^A in three or more different ways, with A, B > 1.

Original entry on oeis.org

344373768, 30233088000000, 5777633090469888, 198077054103584768, 97261323672455430408, 5242880000000000000000, 32462531054272512000000, 96932598327560852471808, 20526276111602783203125000, 195845982777569926302400512, 1631774235698698006327984128
Offset: 1

Views

Author

Giovanni Resta, Jul 12 2018

Keywords

Comments

Since a number can't be expressed simultaneously as 2*t^2 and 4*u^4, any number in this sequence must have a representation with A >= 5.
Up to 10^52, the only two terms not of the form 2*k^2 are 3*41841412812^3 = 4*86093442^4 = 64*3^64 and 3*54043195528445952^3 = 4*3298534883328^4 = 81*4^81.
From Charlie Neder, Jul 21 2018: (Start)
For each prime p and each value of A, the p-adic valuation of n must be congruent to the p-adic valuation of A modulo A. As a consequence, if two numbers k and m have greatest common divisor g and at least one of (k/g)^(1/g) or (m/g)^(1/g) is not an integer then no number n can have both A = k and A = m since this would lead to an unsolvable system of modular congruences.
If a number n is in this sequence with corresponding A-values {a,b,c}, then n*k^lcm(a,b,c) is also in this sequence for all k. Of the first 1198 terms, 949 of these are of the form 344373768*k^24, and 164 more are of the form 30233088000000*k^30. As values of n get larger, the proportion of primitive values rapidly decreases. (End)

Examples

			30233088000000 is a term because it can be expressed as 2*3888000^2 = 3*21600^3 = 5*360^5.
		

Crossrefs

Programs

  • Mathematica
    abaC[n_] := Block[{c=0, k=2}, While[n >= k 2^k, If[Mod[n, k] == 0 && IntegerQ[ (n/k)^ (1/k)], c++]; k++]; c]; lim = 10^20; a=5; Union@ Reap[ While[a 2^a < lim, b=2; While[(v = a b^a) < lim, If[abaC[v] > 2, Sow[v]]; b++]; a++]][[2, 1]]
Showing 1-3 of 3 results.