A073264 - OEIS

A073264

Prime digits in the decimal expansion of Pi (with repetitions, in order of appearance).

3, 5, 2, 5, 3, 5, 7, 3, 2, 3, 2, 3, 3, 3, 2, 7, 5, 2, 7, 3, 3, 7, 5, 5, 2, 7, 5, 2, 3, 7, 2, 2, 2, 3, 2, 5, 3, 2, 7, 7, 2, 5, 3, 2, 2, 3, 7, 3, 5, 5, 5, 2, 2, 3, 7, 2, 5, 3, 5, 2, 7, 5, 2, 2, 7, 3, 5, 2, 5, 5, 5, 2, 2, 5, 3, 3, 2, 7, 5, 5, 3, 3, 2, 7, 5, 2, 3, 3, 7, 7, 3, 5, 2, 7, 2, 5, 5, 2, 3, 3, 5, 3, 2, 2, 3

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

The prime digits in the decimal expansion of Pi, i.e., the range of this sequence, are the exactly all single digit primes, A000040(1..4) = {2, 3, 5, 7}. - M. F. Hasler, Jul 27 2024

LINKS

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

EXAMPLE

Pi = 3.141592653... so we get 3,5,2,5,3...

MATHEMATICA

Select[RealDigits[Pi, 10, 600][[1]], PrimeQ] (* Harvey P. Dale, Jul 19 2017 *)

PROG

(PARI) primespi(n) = default(realprecision, 100000); p = Pi/10; s = 0; default(realprecision, 28); for(x=1, n, d = p*10; d1=floor(d); if(isprime(d1) , print1(d1, ", "); s++; ); p = frac(d)); \\ Cino Hilliard, Sep 06 2003

(PARI) A073264_upto(N=100)=localprec(N*3); select(isprime, digits(Pi\1000^-N))[1..N] \\ M. F. Hasler, Jul 27 2024

CROSSREFS

Cf. A000796, A073303.

Sequence in context: A258428 A090396 A086387 * A198099 A016657 A372143

Adjacent sequences: A073261 A073262 A073263 * A073265 A073266 A073267

KEYWORD

easy,nonn,base

AUTHOR

Y. Kelly Itakura (yitkr(AT)mta.ca), Aug 22 2002

EXTENSIONS

More terms from Cino Hilliard, Sep 06 2003

Offset corrected by M. F. Hasler, Jul 27 2024

STATUS

approved