OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Pi-Prime
EXAMPLE
MATHEMATICA
Do[If[PrimeQ[Round[Pi*10^(n-1)]], Print[Round[Pi*10^(n-1)]]], {n, 17511}]
Select[Module[{nn=20, pid}, pid=RealDigits[Pi, 10, nn+2][[1]]; Table[Floor[(FromDigits[ Take[ pid, n+1]])/10+1/2], {n, nn}]], PrimeQ] (* Harvey P. Dale, Jan 01 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
XU Pingya, Feb 25 2017
STATUS
approved