A065576 Numbers k such that the first k nonary digits found in decimal expansion of Pi form a prime.

1, 447, 562, 1686

Offset

1,2

Links

Table of n, a(n) for n=1..4.

Mathematica

p = First[RealDigits[Pi, 10, 10^5]]; p = p[[ Select[ Range[10^5], p[[ # ]] != 9 & ]]]; Do[ If[ PrimeQ[ FromDigits[ Take[p, n], 9]], Print[n]], {n, 2250} ]

Crossrefs

Sequence in context: A025346 A139230 A221506 * A200071 A203960 A147628

Adjacent sequences: A065573 A065574 A065575 * A065577 A065578 A065579

Keyword

base,nonn

Author

Robert G. Wilson v, Dec 01 2001

Status

approved