%I A099655
%S A099655 4,4,2,2,6,2,6,2,6,2,4,6,6,8,4,4,14,4,2,10,6,6,6,10,2,12,12,12,12,2,6,
               6,
%T A099655 6,10,14,4,14,14,10,4,8,6,6,8,8,10,6,8,8,2,12,8,8,6,12,18,18,10,6,6,6,
               2,
%U A099655 2,12,12,6,12,8,10,8,10,8,4,6,8,4,14,12,2,2,14,14,14,14,2,20,20,8,10,8
%N A099655 a[n]=A098085[n]-A096215[n], difference between next and previous primes 
               to A011974[n], the sum of two consecutive primes.
%F A099655 a(n)=NextPrime[p(n)+p(n+1)]-PreviousPrime[p(n)+p(n+1)]
%e A099655 n=8, p(8)+p(9)=19+23=42,a[8]=43-41=2=a(8).
%t A099655 <<NumberTheory`NumberTheoryFunctions` t1=Table[PreviousPrime[Prime[n]+Prime[n+1]], 
               {n, 1, 128}]; t2=Table[NextPrime[Prime[n]+Prime[n+1]], {n, 1, 128}];
               t2-t1
%Y A099655 Cf. A098085, A096215, A011974.
%Y A099655 Sequence in context: A105190 A002581 A161778 this_sequence A146899 A031351 
               A068923
%Y A099655 Adjacent sequences: A099652 A099653 A099654 this_sequence A099656 A099657 
               A099658
%K A099655 nonn
%O A099655 1,1
%A A099655 Labos E. (labos(AT)ana.sote.hu), Nov 17 2004