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

Author

Rémi Eismann, Feb 13 2007

Keywords

• nonn

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

Programs

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 *)

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