Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #10 Jan 14 2017 15:08:36
%S 1,2,3,4,7,8,11,13,32,35,40,47,50,100,118,130,178,208,220,250,254,320,
%T 353,380,401,404,466,487,598,640,652,676,680,692
%N The record values of d for the n in A239388.
%t 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]]
%Y Cf. A069003 (least number d such that n^2 + d^2 is prime).
%K nonn,more
%O 1,2
%A _T. D. Noe_, Mar 18 2014
%E a(24)-a(31) from _Giovanni Resta_, Mar 18 2014
%E a(32)-a(34) from _Emmanuel Vantieghem_, Jan 13 2017