login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A167132 Gaps between twin prime pairs. 3

%I #15 Jul 13 2021 07:29:56

%S 0,4,4,10,10,16,10,28,4,28,10,28,10,4,28,10,28,10,28,34,70,10,28,58,

%T 46,28,16,22,16,148,10,4,28,22,136,10,16,10,28,58,76,46,10,10,16,106,

%U 22,28,4,118,10,46,28,22,64,82,4,52,16,46,28,52,4,22,16,10,94,28,40,28,40,166

%N Gaps between twin prime pairs.

%C Let G_n denote the twins gap between two consecutive twins, thus a twins gap is the difference between two consecutive twins (p_n, p_n+2) and (p_m, p_m+2), i.e., the difference between p_m and p_n+2. G_n = p_m - (p_n +2) We have: G_1 = 0, G_2 = 4, G_3 = 4, G_4 = 10.

%H T. D. Noe, <a href="/A167132/b167132.txt">Table of n, a(n) for n = 1..10000</a>

%H <a href="http://primes.virtual-library.biz/">Program to generate the sequence</a>

%F a(n) = A001359(n+1) - A006512(n). - _R. J. Mathar_, Oct 29 2009

%p A001359 := proc(n) if n = 1 then 3; else a := nextprime(procname(n-1)) ; while not isprime(a+2) do a := nextprime(a) ; od: return a; fi; end: A006512 := proc(n) A001359(n)+2 ; end: A167132 := proc(n) A001359(n+1)-A006512(n) ; end: seq(A167132(n),n=1..120) ; # _R. J. Mathar_, Oct 29 2009

%t ps = Prime[Range[1000]]; p2 = Flatten[Position[Differences[ps], 2]]; Differences[ps[[p2]]] - 2 (* _T. D. Noe_, Jan 10 2012 *)

%K nonn

%O 1,2

%A _Oleg Zyakun_, Oct 28 2009

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 11:14 EDT 2024. Contains 371278 sequences. (Running on oeis4.)