OFFSET
1,2
MATHEMATICA
leastK[n_] := Module[{k = 1}, While[! PrimeQ[n^2 + k^2], k++]; k]; nn = 10000; t = {}; kMax = 0; Do[k = leastK[n]; If[k > kMax, kMax = k; AppendTo[t, {n, k}]], {n, nn}]; Transpose[t][[2]]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
T. D. Noe, Mar 18 2014
EXTENSIONS
a(24)-a(31) from Giovanni Resta, Mar 18 2014
a(32)-a(34) from Emmanuel Vantieghem, Jan 13 2017
STATUS
approved