A088563 Primes p such that the p-th digit in the decimal expansion of Pi is 0.
107, 271, 331, 367, 409, 521, 619, 683, 751, 839, 857, 997, 1013, 1117, 1123, 1361, 1439, 1483, 1489, 1601, 1607, 1609, 1747, 1831, 1889, 1913, 1999, 2131, 2137, 2251, 2341, 2671, 2819, 2887, 2957, 3011, 3019, 3169, 3203, 3253, 3299, 3331, 3407, 3413
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..2000
Crossrefs
Programs
-
Mathematica
With[{pidigs=RealDigits[Pi,10,10000][[1]]},Select[Prime[ Range[ 500]], pidigs[[#]]==0&]] (* Harvey P. Dale, Nov 13 2011 *)
-
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",")) ) }
-
PARI
A088563_upto(N=3456)={localprec(N+20); [p|p<-primes([1, #N=digits(Pi\10^-N)]), !N[p]]} \\ M. F. Hasler, Jul 29 2024
Comments