|
|
A016078
|
|
Smallest number that is sum of 2 positive n-th powers in 2 different ways.
|
|
6
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
If it exists, a(5) > 1.02*10^26 (see eqn. (27) at the Mathworld link). - Jon E. Schoenfield, Jan 05 2019
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
4 = 1^1 + 3^1 = 2^1 + 2^1;
50 = 1^2 + 7^2 = 5^2 + 5^2,
1729 = 1^3 + 12^3 = 9^3 + 10^3;
635318657 = 59^4 + 158^4 = 133^4 + 134^4 = A018786(1).
|
|
MATHEMATICA
|
(* 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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,nice,hard,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|