login
Number of 0's in the decimal expansion of the lesser of twin primes.
0

%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