|
|
A280081
|
|
Upper ends of record gaps between prime-indexed primes.
|
|
2
|
|
|
5, 11, 31, 59, 109, 157, 277, 331, 709, 1409, 2027, 2221, 3911, 6037, 9293, 11257, 47123, 105211, 114547, 153427, 178289, 220573, 293861, 369181, 2102797, 3734491, 5189797, 5338243, 7245883, 9027923, 12820811, 21332369, 21461717, 24934051, 32640199, 79692083, 182398973
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
a(4) = 59 because the next prime-indexed prime after 41 is 59, and that is a record gap of size 18.
|
|
MATHEMATICA
|
Function[s, Function[t, Flatten@ Map[s[[First@ Position[t, #] + 1]] &, Union@ Rest@ FoldList[Max, 0, t]]]@ Differences@ s]@ Array[Prime@ Prime@ # &, 10^5] (* Michael De Vlieger, Dec 25 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|