1,2
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} ]
Sequence in context: A125587 A134794 A093852 * A101841 A061609 A136465
Adjacent sequences: A065570 A065571 A065572 * A065574 A065575 A065576
nonn,base
Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 01 2001
