A131702 Distances between the locations of new prime gaps (A014320).
0, 1, 4, 14, 5, 3, 11, 52, 54, 34, 27, 45, 18, 84, 61, 160, 147, 444, 647, 47, 311, 33, 851, 224, 82, 41, 216, 148, 728, 89, 3357, 57, 659, 3853, 1814, 504, 920, 1222, 2019, 4256
Offset: 1
Keywords
Crossrefs
Cf. A001223.
Programs
-
Maple
A001223 := proc(n) option remember; ithprime(n+1)-ithprime(n) ; end proc: A014320 := proc(n) option remember; if n = 1 then return 1; else for k from 1 do t := A001223(k) ; isn := true; for i from 1 to n-1 do if procname(i) = t then isn := false; end if; end do: if isn then return t; end if; end do: end if; end proc: locng := proc(n) option remember; g := A014320(n) ; for k from 1 do if A001223(k) = g then return k; end if; end do: end proc: A131702 := proc(n) locng(n+1)-locng(n)-1 ; end proc: seq(A131702(n),n=1..40) ;
Extensions
More terms, program and comment by R. J. Mathar, Aug 23 2010
Comments