%I #15 Mar 13 2023 06:30:25
%S 0,0,0,1,1,2,1,4,0,3,0,4,0,0,2,1,3,1,2,3,10,0,4,7,4,3,2,1,2,18,0,0,2,
%T 2,17,0,1,0,2,6,9,3,1,1,1,8,3,2,0,15,1,4,1,1,7,7,0,4,0,4,3,4,0,1,0,1,
%U 7,2,5,1,5,18,2,5,4,3,1,5,1,18,0,12,2,8,0,1,4,2,0,0,5,0,4,1,1,1,9,10,4,2,6
%N Number of primes between successive pairs of twin primes.
%H T. D. Noe, <a href="/A048614/b048614.txt">Table of n, a(n) for n=1..10000</a>
%F a(n) = A027833(n)-2 for n>1. - _T. D. Noe_, Feb 28 2007
%e a(8)= 4 because between the 8th and 9th pairs of twins there are 4 primes: (71,73) 79 83 89 97 (101,103).
%t t1=Select[Prime[Range[3,542]],PrimeQ[#+2]&]; Prepend[Table[PrimePi[t1[[i+1]]]-PrimePi[t1[[i]]]-2,{i,1,Length[t1]-1}],0] (* _Jayanta Basu_, May 26 2013 *)
%Y Cf. A001223, A027833.
%K nonn,easy
%O 1,6
%A Den Roussel (DenRoussel(AT)webtv.net)
%E Corrected and extended by _Labos Elemer_, Mar 23 2000
|