|
|
MATHEMATICA
|
p = First[ RealDigits[ Pi, 10, 10^5]]; p = p[[ Select[ Range[10^5], p[[ # ]] == 0 || p[[ # ]] == 1 || p[[ # ]] == 2 || p[[ # ]] == 3 || p[[ # ]] == 4 || p[[ # ]] == 5 & ]]]; Do[ If[ PrimeQ[ FromDigits[ Take[p, n], 6]], Print[n]], {n, 1, 3000} ]
|
