|
%I #6 Nov 21 2013 12:48:14
%S 107,271,331,367,409,521,619,683,751,839,857,997,1013,1117,1123,1361,
%T 1439,1483,1489,1601,1607,1609,1747,1831,1889,1913,1999,2131,2137,
%U 2251,2341,2671,2819,2887,2957,3011,3019,3169,3203,3253,3299,3331,3407,3413
%N Primes p such that the p-th digit in the decimal expansion of Pi is 0.
%C The 9th zero in Pi is in the 107th place of the digits 3,1,4,1,5, ...
%H Harvey P. Dale, <a href="/A088563/b088563.txt">Table of n, a(n) for n = 1..2000</a>
%t With[{pidigs=RealDigits[Pi,10,10000][[1]]},Select[Prime[ Range[ 500]], pidigs[[#]]==0&]] (* _Harvey P. Dale_, Nov 13 2011 *)
%o (PARI) pizeros(n,d) = { default(realprecision,5000); p = Pi; v = Vec(Str(p)); for(x=1,n, if(v[x] == Str(d) && isprime(x-1),print1(x-1",")) ) }
%Y Cf. A014976.
%K nonn,base
%O 1,1
%A _Cino Hilliard_, Nov 19 2003
|
