# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a050434
Showing 1-1 of 1

%I A050434 #37 Apr 19 2020 07:46:59
%S A050434 396733,838249,1313467,1648081,1655707,2345989,2784373,3254959,
%T A050434 3595489,4047157,4359403,4571107,4665553,4783873,5211109,5398597,
%U A050434 5528287,5723899,6027283,6242263,6429223,6851863,7259167,7554367
%N A050434 Primes whose next higher prime is 100 greater.
%C A050434 All terms == 1 mod 6. - _Zak Seidov_, Dec 21 2012
%C A050434 Minimal difference is 102, see A289908. - _Zak Seidov_, Apr 02 2018
%H A050434 Remi Eismann, <a href="/A050434/b050434.txt">Table of n, a(n) for n = 1..10000</a>
%H A050434 <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>
%e A050434 396733 is included because the next larger prime is 396833.
%p A050434 Primes:= select(isprime,[2,seq(2*i+1,i=1..5*10^6)]):
%p A050434 X:= Primes[2..-1] - Primes[1..-2]:
%p A050434 J:=select(t -> X[t]=100, [$1..nops(X)]):
%p A050434 Primes[J]; # _Robert Israel_, Jun 29 2015
%t A050434 Select[Partition[Prime[Range[600000]],2,1],#[[2]]-#[[1]]==100&][[All,1]] (* _Harvey P. Dale_, Aug 14 2018 *)
%Y A050434 Cf. A289908.
%K A050434 easy,nonn
%O A050434 1,1
%A A050434 _Harvey P. Dale_, Dec 22 1999
%E A050434 More terms from _Frank Ellermann_, Jan 18 2002

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE