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

A235368 The smallest number with n representations of the form A*B^A with A, B > 1.

Original entry on oeis.org

8, 648, 344373768, 5797226647880997086048126220703125000000000000000000000000000000000000000000000000000000000000000000000000000
Offset: 1

Views

Author

Carlos Rivera, Jan 08 2014

Keywords

Comments

Call a number of the form A*B^A, A&B>1 an ABA number. Then a(n) is the smallest ABA number with n representations of this form.
a(n) exists for every n. For example, a(4) <= k = 2^105*3^70*5^126*7^120, where k (a 255-digit number) has 4 representations with A = 2, 3, 5, and 7. - Giovanni Resta, Jan 09 2014
It seems economical to find solutions where A = 2 and A = 8 both work, which is possible even though 2 and 8 are not coprime. As an example, 2^75*3^40*5^96 works for A = 2, 8, 3, 5 showing that a(4) <= 2^75*3^40*5^96 (a 109-digit number), improving the a(4) bound from previous comment. - Jeppe Stig Nielsen, Oct 29 2023
I confirm that a(4) = 2^75 * 3^40 * 5^96 with A in {2, 3, 5, 8}, a(5) = 2^315 * 3^280 * 5^336 * 7^120 with A in {2, 3, 5, 7, 8}, and a(6) = 2^1155 * 3^6160 * 5^3696 * 7^2640 * 11^2520 with A in {2, 3, 5, 7, 8, 11}. - Max Alekseyev, Feb 21 2024

Examples

			a(3) = 344373768 = 8*9^8 = 3*486^3 = 2*13122^2.
		

Crossrefs

Extensions

a(4)-a(6) from Max Alekseyev, Feb 21 2024

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.