[go: up one dir, main page]

login
A126724
Primes p such that q-p = 150, where q is the next prime after p.
4
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
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
KEYWORD
nonn
AUTHOR
RĂ©mi Eismann, Feb 13 2007
STATUS
approved