A239389 The record values of d for the n in A239388.

1, 2, 3, 4, 7, 8, 11, 13, 32, 35, 40, 47, 50, 100, 118, 130, 178, 208, 220, 250, 254, 320, 353, 380, 401, 404, 466, 487, 598, 640, 652, 676, 680, 692

Offset

1,2

Links

Table of n, a(n) for n=1..34.

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

Cf. A069003 (least number d such that n^2 + d^2 is prime).

Sequence in context: A328421 A003508 A225229 * A256219 A078662 A050048

Adjacent sequences: A239386 A239387 A239388 * A239390 A239391 A239392

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