%I
%S 2,41,139,149,199,239,251,397,433,439,443,491,569,599,641,647,661,787,
%T 853,883,1031,1087,1097,1153,1187,1319,1423,1613,1619,1637,1657,1667,
%U 1697,1759,1789,2081,2129,2143,2221,2239,2459,2633,2689,2741,2753,2777
%N Primes p such that the pth digit in the decimal expansion of Pi is 1.
%C The 2nd 1 in Pi is in the 2nd place of the digits 3,1,4,1,5,...
%H Harvey P. Dale, <a href="/A088565/b088565.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Flatten[Position[RealDigits[Pi,10,2800][[1]],1]],PrimeQ] (* _Harvey P. Dale_, May 05 2019 *)
%o (PARI) pizeros(n,d) = { default(realprecision,5000); p = Pi; v = Vec(Str(p)); for(x=1,n, if(v[x] == Str(d) && isprime(x1),print1(x1",")) ) }
%Y Cf. A014976.
%K nonn,base
%O 1,1
%A _Cino Hilliard_, Nov 19 2003
