The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A014320 The next new gap between successive primes. 8

%I

%S 1,2,4,6,8,14,10,12,18,20,22,34,24,16,26,28,30,32,36,44,42,40,52,48,

%T 38,72,50,62,54,60,58,46,56,64,68,86,66,70,78,76,82,96,112,100,74,90,

%U 84,114,80,88,98,92,106,94,118,132,104,102,110,126,120,148,108,122,138

%N The next new gap between successive primes.

%C Prime differences A001223 in natural order with duplicates removed. - _Reinhard Zumkeller_, Apr 03 2015

%H Reinhard Zumkeller, <a href="/A014320/b014320.txt">Table of n, a(n) for n = 1..120</a>

%t max = 300000; allGaps = Transpose[ {gaps = Differences[ Prime[ Range[max]]], Range[ Length[gaps]]}]; equalGaps = Split[ Sort[ allGaps, #1[[1]] < #2[[1]] & ], #1[[1]] == #2[[1]] & ]; firstGaps = ((Sort[#1, #1[[1]] < #2[[1]] & ] & ) /@ equalGaps)[[All, 1]]; Sort[ firstGaps, #1[[2]] < #2[[2]] & ][[All, 1]] (* _Jean-François Alcover_, Oct 21 2011 *)

%o import Data.List (nub)

%o a014320 n = a014320_list !! (n-1)

%o a014320_list = nub \$ a001223_list

%o -- _Reinhard Zumkeller_, Apr 03 2015

%Y Cf. A001223.

%K nonn

%O 1,2

%A Hynek Mlcousek (hynek(AT)dior.ics.muni.cz)

%E More terms from _Sascha Kurz_, Mar 24 2002

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified February 24 03:22 EST 2020. Contains 332195 sequences. (Running on oeis4.)