%I A097470
%S A097470 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,0,
%T A097470 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,0,1,
%U A097470 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 A097470 Number of 0's in the decimal expansion of the lesser of twin primes.
%C A097470 n=5000,d=0 in PARI code below.
%e A097470 101 is the 9-th lesser twin prime so 1 is the 9-th entry.
%o A097470 (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) }
%Y A097470 Sequence in context: A073520 A152137 A060838 this_sequence A033322 A130713 
               A085857
%Y A097470 Adjacent sequences: A097467 A097468 A097469 this_sequence A097471 A097472 
               A097473
%K A097470 base,nonn
%O A097470 2,104
%A A097470 Cino Hilliard (hillcino368(AT)gmail.com), Aug 24 2004