This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A048614 #15 Mar 13 2023 06:30:25 %S A048614 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 A048614 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 A048614 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 A048614 Number of primes between successive pairs of twin primes. %H A048614 T. D. Noe, <a href="/A048614/b048614.txt">Table of n, a(n) for n=1..10000</a> %F A048614 a(n) = A027833(n)-2 for n>1. - _T. D. Noe_, Feb 28 2007 %e A048614 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 A048614 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 A048614 Cf. A001223, A027833. %K A048614 nonn,easy %O A048614 1,6 %A A048614 Den Roussel (DenRoussel(AT)webtv.net) %E A048614 Corrected and extended by _Labos Elemer_, Mar 23 2000