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 || p[[ # ]] == 5 || p[[ # ]] == 6 & ]]]; Do[ If[ PrimeQ[ FromDigits[ Take[p, n], 7]], Print[n]], {n, 1, 2500} ]

Sequence in context: A041444 A041446 A042853 this_sequence A041448 A061047 A098848

Adjacent sequences: A065572 A065573 A065574 this_sequence A065576 A065577 A065578

nonn,base

Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 01 2001