A050434 Primes whose next higher prime is 100 greater.

396733, 838249, 1313467, 1648081, 1655707, 2345989, 2784373, 3254959, 3595489, 4047157, 4359403, 4571107, 4665553, 4783873, 5211109, 5398597, 5528287, 5723899, 6027283, 6242263, 6429223, 6851863, 7259167, 7554367

Offset: 1

Author

Harvey P. Dale, Dec 22 1999

Keywords

• easy
• nonn

Comments

All terms == 1 mod 6. - Zak Seidov, Dec 21 2012

Minimal difference is 102, see A289908. - Zak Seidov, Apr 02 2018

Examples

			396733 is included because the next larger prime is 396833.
		

Links

• Remi Eismann, Table of n, a(n) for n = 1..10000
• Index entries for primes, gaps between

Crossrefs

Cf. A289908.

Programs

Maple

Primes:= select(isprime,[2,seq(2*i+1,i=1..5*10^6)]):
X:= Primes[2..-1] - Primes[1..-2]:
J:=select(t -> X[t]=100, [$1..nops(X)]):
Primes[J]; # Robert Israel, Jun 29 2015

Mathematica

Select[Partition[Prime[Range[600000]],2,1],#[[2]]-#[[1]]==100&][[All,1]] (* Harvey P. Dale, Aug 14 2018 *)

Extensions

More terms from Frank Ellermann, Jan 18 2002