%I A093739
%S A093739 0,1,15,101,773,5569,42352,334180,2695109
%N A093739 Number of prime pairs below 10^n having a difference of 8.
%F A093739 Count prime pairs below 10^n having a difference of 8
%e A093739 a(3)=15 because there are 15 prime gaps of 8 below 10^3
%o A093739 UBASIC: 20 N=1:dim T(34); 30 A=nxtprm(N); 40 N=A; 50 B=nxtprm(N); 60 
               D=B-A; 70 for x=2 to 34 step 2; 80 if D=X and B<10^2+1 then T(X)=T(X)+1; 
               90 next X; 100 if B>10^2+1 then 140; 110 B=A; 120 N=N+1; 130 goto 
               30; 140 for x=2 to 34 step 2; 150 print T(X);, 160 next (This program 
               simultaneously finds values from 2 to 34 - if gap=2 add 1- adjust 
               lines 80 and 100 for desired 10^n)
%Y A093739 Cf. A007508 A093739 A093740.
%Y A093739 Sequence in context: A087661 A163717 A111370 this_sequence A085465 A102791 
               A061550
%Y A093739 Adjacent sequences: A093736 A093737 A093738 this_sequence A093740 A093741 
               A093742
%K A093739 easy,nonn
%O A093739 1,3
%A A093739 Enoch Haga (Enokh(AT)comcast.net), Apr 15 2004