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

Author

Rémi Eismann, Feb 13 2007

Keywords

• nonn

Links

• R. J. Mathar, Table of n, a(n) for n = 1..84
• Index entries for primes, gaps between

Programs

Mathematica

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

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