|
|
A197062
|
|
Successive records in A152676.
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|