A126724 Primes p such that q-p = 150, where q is the next prime after p.

13626257, 17652013, 22790357, 25180321, 27980837, 33384517, 35560009, 37369531, 39892037, 40794049, 44310817, 49444277, 57482767, 58471841, 59300629, 60271357, 60866807, 61097723, 63032843, 64645307, 67109773, 67396057, 71082149, 71470507

Offset

1,1

Links

R. J. Mathar, Table of n, a(n) for n = 1..84

Index entries for primes, gaps between

Mathematica

a = {}; Do[If[Prime[x + 1] - Prime[x] == 150, AppendTo[a, Prime[x]]], {x, 1, 10000}]; a

Prog

(PARI) p=0; g=150; for(c=1, 100, while(g+p!=p=nextprime(p+1), ); write("gap-150.txt", c" "p-g)) \\ M. F. Hasler, Jan 18 2012

Crossrefs

Sequence in context: A345609 A346283 A205026 * A251565 A082256 A324261

Adjacent sequences: A126721 A126722 A126723 * A126725 A126726 A126727

Keyword

nonn

Author

Rémi Eismann, Feb 13 2007

Status

approved