A239391 The record values of d for the n in A239390.

1, 3, 5, 7, 11, 13, 17, 29, 37, 41, 43, 67, 95, 97, 109, 113, 115, 119, 167, 179, 181, 205, 211, 215, 229, 235, 265, 281, 319, 359, 373, 401, 413, 421, 439, 443, 461, 505, 545, 559, 719, 745, 775, 941

Offset

1,2

Links

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

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

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

Sequence in context: A108816 A088503 A118939 * A087382 A355845 A025127

Adjacent sequences: A239388 A239389 A239390 * A239392 A239393 A239394

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