|
%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
|
