%I #5 Apr 11 2021 16:12:16
%S 1,4,69,3195
%N Numbers k such that the first k quinary digits found in the decimal expansion of Pi form a prime.
%t p = First[ RealDigits[ Pi, 10, 10^5]]; p = p[[ Select[ Range[10^5], p[[ # ]] == 0 || p[[ # ]] == 1 || p[[ # ]] == 2 || p[[ # ]] == 3 || p[[ # ]] == 4 & ]]]; Do[ If[ PrimeQ[ FromDigits[ Take[p, n], 5]], Print[n]], {n, 1, 5000} ]
%K nonn,base
%O 1,2
%A _Robert G. Wilson v_, Dec 01 2001
|