primesInPi.frink

View or download primesInPi.frink in plain text format

str = read["file:pi1000000.txt"]
str =~ %s/[^\d]//g   // Strip out any non-digits

// Largest known is 78073
// "there are no others with n <= 79718"
// http://mathworld.wolfram.com/Pi-Prime.html
// https://oeis.org/A060421
for len = 79715 to length[str]
{
   s = left[str, len]
   if isPrime[parseInt[s]]
   {
      println["\n*$len\t$s"]
      exit[]
   } else
      print["$len "]
}


View or download primesInPi.frink in plain text format


This is a program written in the programming language Frink.
For more information, view the Frink Documentation or see More Sample Frink Programs.

Alan Eliasen was born 17646 days, 9 hours, 36 minutes ago.