login
Lower ends of record gaps between prime-indexed primes.
2

%I #16 Jan 04 2017 07:01:13

%S 3,5,17,41,83,127,241,283,617,1297,1913,2099,3761,5869,9103,10909,

%T 46751,104827,114089,152953,177791,219931,293123,368153,2101553,

%U 3733111,5188297,5336477,7244099,9026123,12818959,21330371,21459517,24931771,32637571,79689091,182395973

%N Lower ends of record gaps between prime-indexed primes.

%e a(4) = 41 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, #]]] &, Union@ Rest@ FoldList[Max, 0, t]]]@ Differences@ s]@ Array[Prime@ Prime@ # &, 10^5] (* _Michael De Vlieger_, Dec 25 2016 *)

%Y Cf. A006450, A280081, A280082.

%K nonn

%O 1,1

%A _Bobby Jacobs_, Dec 25 2016