%I #32 Feb 16 2025 08:32:33
%S 4,50,1729,635318657
%N Smallest number that is sum of 2 positive n-th powers in 2 different ways.
%C If it exists, a(5) > 1.02*10^26 (see eqn. (27) at the Mathworld link). - _Jon E. Schoenfield_, Jan 05 2019
%H R. Alter, <a href="https://doi.org/10.1007/BFb0096461">Computations and generalizations on a remark of Ramanujan</a>, pp. 182-196 of "Analytic Number Theory (Philadelphia, 1980)", ed. M. I. Knopp, Lect. Notes Math., Vol. 899, 1981.
%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/DiophantineEquation5thPowers.html">Diophantine Equation--5th Powers</a>
%F If A230561(n) exists, then a(n) <= A230561(n) for n > 1, with equality at least for n = 2, and inequality at least for n = 3. - _Jonathan Sondow_, Oct 24 2013 [Comment edited by _N. J. A. Sloane_, Apr 03 2021]
%e 4 = 1^1 + 3^1 = 2^1 + 2^1;
%e 50 = 1^2 + 7^2 = 5^2 + 5^2,
%e 1729 = 1^3 + 12^3 = 9^3 + 10^3;
%e 635318657 = 59^4 + 158^4 = 133^4 + 134^4 = A018786(1).
%t (* This is just an empirical verification *) Do[max = 4 + n^4; Clear[cnt]; cnt[_] = 0; smallest = Infinity; Do[ cnt[an = x^n + y^n] += 1; If[cnt[an] == 2 && an < smallest, smallest = an], {x, 1, max}, {y, x, max}]; Print["a(", n, ") = ", smallest], {n, 1, 4}] (* _Jean-François Alcover_, Aug 13 2013 *)
%Y Cf. A046881, A230561.
%K nonn,nice,hard,more,changed
%O 1,1
%A _Robert G. Wilson v_, Dec 11 1999