%I A065570
%S A065570 264,274,322,751,3112
%N A065570 The first n ternary digits found in decimal expansion of pi form a prime.
%t A065570 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} ]
%Y A065570 Cf. A065832.
%Y A065570 Sequence in context: A054802 A108823 A157828 this_sequence A050240 A105683 
               A160971
%Y A065570 Adjacent sequences: A065567 A065568 A065569 this_sequence A065571 A065572 
               A065573
%K A065570 nonn,base
%O A065570 1,1
%A A065570 Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 30 2001