|
|
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Pi-Prime
|
|
EXAMPLE
|
a(5) = A011546(1902) = 314159...066118631 is a prime with 1902 digits.
a(6) = A011546(3971) = 314159...411010447.
a(7) = A011546(5827) = 314159...690496521.
For n<=17511, there are eight primes in sequence A011546(n).
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|