A197062 Successive records in A152676.

3, 8, 13, 17, 31, 32, 50, 55, 75, 91, 98, 100, 105, 129, 162, 183, 241, 288, 311, 334, 381, 392, 413, 489, 553, 578, 615, 651, 670, 722, 726, 741, 844, 968, 1013, 1152, 1164, 1261, 1264, 1461, 1561, 1601, 1682, 1800, 1809, 1905, 1979, 2048, 2225, 2312, 2450

Offset

1,1

Comments

On plot picture of A152676 is easy to see that all points occurred between some upper and lower limit curve. Numbers in this sequence are the nearest upper limit curve.

Links

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

Mathematica

aa = {}; max = 0; Do[If[Mod[Prime[n], 4] == 1, k = 1;
  While[! Mod[k^2 + 1, Prime[n]] == 0, k++]; If[Prime[n] - k > max, max = Prime[n] - k; AppendTo[aa, Prime[n] - k]]], {n, 1, 1000}]; aa (* Artur Jasinski, Oct 09 2011 *)

Crossrefs

Cf. A002144, A002314, A152676, A152680.

Sequence in context: A187093 A081766 A152676 * A010064 A310304 A133330

Adjacent sequences: A197059 A197060 A197061 * A197063 A197064 A197065

Keyword

nonn

Author

Artur Jasinski, Oct 09 2011

Status

approved