OFFSET
1,1
EXAMPLE
a(2) = 50 because 50 = 1^2 + 7^2 = 5^2 + 5^2.
a(3) = 3925 because 3925 = 12^3 + 13^3 = 9^2 + 62^2 = 26^2 + 57^2 = 30^2 + 55^2.
a(4) = 50881 because 50881 = 4^4 + 15^4 = 16^2 + 225^2 = 65^2 + 216^2 = 120^2 + 191^2 = 159^2 + 160^2.
MATHEMATICA
nR[n_]:= (SquaresR[2, n]+ Plus@@ Pick[{-4, 4}, IntegerQ/@ Sqrt[{n, n/2} ]])/8; a[1]=2; a[n_]:= Block[{m = 10^3, s, z}, While[{} == (s = Reap[ Do[ If[nR[z = x^n + y^n] == n, Sow@ z], {x, Floor[m^(1/n)]}, {y, Min[x, Floor[m - x^n]^(1/n)]}]][[2]]), m *= 2]; Min[s[[1]]]]; Array[a, 10] (* Giovanni Resta, Jun 27 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Altug Alkan, Jun 24 2016
EXTENSIONS
a(5)-a(17) from Giovanni Resta, Jun 27 2016
STATUS
approved