OFFSET
1,2
MATHEMATICA
greatestK[n_] := Module[{k = 1}, While[! PrimeQ[n^2 + (n - k)^2], k++]; k]; nn = 10000; t = {}; kMax = 0; Do[k = greatestK[n]; If[k > kMax, kMax = k; AppendTo[t, {n, k}]], {n, 2, nn}]; Transpose[t][[2]]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
T. D. Noe, Mar 19 2014
EXTENSIONS
a(38)-a(41) from Chai Wah Wu, Feb 06 2020
a(42)-a(44) from Chai Wah Wu, Feb 08 2020
STATUS
approved