A204673 Primes p such that q-p = 180, where q is the next prime after p.

17051707, 92510963, 92801029, 93685439, 107580877, 129956263, 135045091, 141932129, 147056531, 168804553, 215295583, 215650027, 222711131, 224901491, 235155673, 237323551, 239920979, 242246687, 244883383, 253555097, 255994261, 267546091

Offset

1,1

Links

Luke March, Table of n, a(n) for n = 1..1000 (First 100 terms from M. F. Hasler)

Index entries for primes, gaps between

Mathematica

a = {}; Do[If[Prime[x + 1] - Prime[x] == 180, AppendTo[a, Prime[x]]], {x, 1, 100000}]; a
Select[Partition[Prime[Range[146*10^5]], 2, 1], #[[2]]-#[[1]]==180&][[All, 1]] (* Harvey P. Dale, Nov 27 2022 *)

Prog

(PARI) p=0; g=180; for(c=1, 100, while(g+p!=p=nextprime(p+1), ); write("c:/temp/gap-"g".txt", c" "p-g))

Crossrefs

Sequence in context: A250933 A143510 A043680 * A205640 A175271 A172597

Adjacent sequences: A204670 A204671 A204672 * A204674 A204675 A204676

Keyword

nonn

Author

M. F. Hasler, Jan 18 2012

Status

approved