%I #16 Jan 04 2017 07:01:45
%S 5,11,31,59,109,157,277,331,709,1409,2027,2221,3911,6037,9293,11257,
%T 47123,105211,114547,153427,178289,220573,293861,369181,2102797,
%U 3734491,5189797,5338243,7245883,9027923,12820811,21332369,21461717,24934051,32640199,79692083,182398973
%N Upper ends of record gaps between prime-indexed primes.
%e a(4) = 59 because the next prime-indexed prime after 41 is 59, and that is a record gap of size 18.
%t 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 *)
%Y Cf. A006450, A280080, A280082.
%K nonn
%O 1,1
%A _Bobby Jacobs_, Dec 25 2016
|