[go: up one dir, main page]
More Web Proxy on the site http://driver.im/
login
A050434
Primes whose next higher prime is 100 greater.
9
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,1
COMMENTS
All terms == 1 mod 6. - Zak Seidov, Dec 21 2012
Minimal difference is 102, see A289908. - Zak Seidov, Apr 02 2018
EXAMPLE
396733 is included because the next larger prime is 396833.
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 *)
CROSSREFS
Cf. A289908.
Sequence in context: A233612 A234909 A224633 * A224630 A251341 A234331
KEYWORD
easy,nonn
AUTHOR
Harvey P. Dale, Dec 22 1999
EXTENSIONS
More terms from Frank Ellermann, Jan 18 2002
STATUS
approved