OFFSET
1,1
LINKS
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
KEYWORD
nonn
AUTHOR
RĂ©mi Eismann, Feb 13 2007
STATUS
approved