1,1

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

Cf. A065832.

Sequence in context: A023314 A054802 A108823 this_sequence A050240 A105683 A123654

Adjacent sequences: A065567 A065568 A065569 this_sequence A065571 A065572 A065573

nonn,base

Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 30 2001