%I A093741
%S A093741 0,0,7,105,964,8005,65513,538382,4468957
%N A093741 Number of prime pairs below 10^n having a difference of 12.
%F A093741 Count prime pairs below 10^n having a difference of 12
%e A093741 a(3)=7 because there are 7 prime gaps of 12 below 10^3
%o A093741 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 A093741 Cf. A007508 A093740 A093742.
%Y A093741 Sequence in context: A101746 A001921 A098362 this_sequence A139742 A120049 
               A067420
%Y A093741 Adjacent sequences: A093738 A093739 A093740 this_sequence A093742 A093743 
               A093744
%K A093741 easy,nonn
%O A093741 1,3
%A A093741 Enoch Haga (Enokh(AT)comcast.net), Apr 15 2004