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

Author

Artur Jasinski, Oct 09 2011

Keywords

• nonn
• changed

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.

Crossrefs

Cf. A002144, A002314, A152676, A152680.

Programs

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