A126721 Primes p such that q-p = 40, where q is the next prime after p.

19333, 20809, 22573, 25261, 33247, 38461, 45013, 48907, 52321, 60169, 60961, 62233, 62989, 64333, 64513, 69499, 73141, 76039, 83137, 83497, 84589, 86029, 88129, 88339, 88681, 90313, 96097, 97327, 110989, 113287, 117577, 121189, 122611, 125551, 130729, 131797, 135937, 137659, 139201

Offset

1,1

Comments

From Zak Seidov: First terms followed by gaps 40, 2, 40: (383179, 1269601, 1528897, ...). First term followed by gaps 40, 2, 40, 2, 40 is 13504819. - M. F. Hasler, Oct 29 2018

Links

Remi Eismann, Table of n, a(n) for n = 1..10000

Index entries for primes, gaps between

Maple

a:=p->`if`(ithprime(p+1)-ithprime(p)=40, ithprime(p), NULL); seq(a(p), p=1..13000); # Muniru A Asiru, Oct 29 2018

Mathematica

Transpose[Select[Partition[Prime[Range[11000]], 2, 1], #[[2]]-#[[1]] == 40&]][[1]] (* Harvey P. Dale, Apr 18 2012 *)

Prog

(PARI) A(N=100, g=40, p=2, i=primepi(p)-1, L=[])={forprime(q=1+p, , i++; if(p+g==p=q, L=concat(L, q-g); N--||break)); L} \\ returns the list of first N terms of the sequence. - M. F. Hasler, Oct 19 2018

Crossrefs

Sequence in context: A280555 A031831 A252901 * A323558 A321642 A204592

Adjacent sequences: A126718 A126719 A126720 * A126722 A126723 A126724

Keyword

nonn

Author

Rémi Eismann, Feb 13 2007

Status

approved