%I #7 Mar 12 2015 19:21:49
%S 0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,
%T 0,1,1,1,1,1,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,
%U 0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1
%N Number of 0's in the decimal expansion of the lesser of twin primes.
%C n=5000,d=0 in PARI code below.
%e 101 is the 9th lesser twin prime so 1 is the 9th entry.
%o (PARI) g(n,d) = forprime(x=2,n,if(isprime(x+2),print1(countchr(x,d)","))) \Count the occurrences of char in string str countchr(str,char) = { local(ln,x,c); str=Str(str); \This allows leaving quotes off input char=Str(char); c=0; ln=length(str); for(x=1,ln, if(mid(str,x,1)==char,c++); ); return(c) } \ Get a substring of length n from string str starting at position s in str. mid(str,s,n) = { local(v,ln,x,tmp); v =""; tmp = Vec(str); ln=length(tmp); for(x=s,s+n-1, v=concat(v,tmp[x]); ); return(v) }
%K base,nonn
%O 2,104
%A _Cino Hilliard_, Aug 24 2004