login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A153031 Positions of prime digits of Pi. 3
1, 5, 7, 9, 10, 11, 14, 16, 17, 18, 22, 25, 26, 28, 29, 30, 32, 34, 40, 44, 47, 48, 49, 52, 54, 57, 62, 64, 65, 67, 74, 77, 84, 87, 90, 91, 92, 94, 97, 100, 103, 110, 112, 113, 115, 116, 121, 124, 131, 132, 134, 136, 137, 138, 140, 141, 142, 143, 144, 150, 157, 159, 161 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Jens Kruse Andersen, Table of n, a(n) for n = 1..10000

FORMULA

a(n) = A073303(n) + 1. - Michel Marcus, May 29 2014

MATHEMATICA

Flatten[Position[ Map[If[PrimeQ[ # ], "*", # ] &, RealDigits[ N[Pi, 100]][[1]]], "*"]]

Select[ Range@ 166, PrimeQ[ RealDigits[Pi, 10, 166][[1, # ]]] &] (* Robert G. Wilson v, Dec 21 2008 *)

Flatten[Position[RealDigits[Pi, 10, 200][[1]], _?PrimeQ]] (* Harvey P. Dale, Mar 22 2015 *)

PROG

(PARI) \p 1000

p=Vec(Str(Pi/10)); for(n=1, #p-9, if(isprime(eval(p[n+2])), print1(n", "))) \\ Jens Kruse Andersen, Jul 23 2014

CROSSREFS

Cf. A000796.

Sequence in context: A079696 A275718 A129270 * A184110 A138892 A190202

Adjacent sequences:  A153028 A153029 A153030 * A153032 A153033 A153034

KEYWORD

nonn,base

AUTHOR

Julio Cesar de la Yncera, Dec 17 2008

EXTENSIONS

More concise Mathematica coding added and sequence extended by Robert G. Wilson v, Dec 21 2008

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 4 08:58 EDT 2020. Contains 333213 sequences. (Running on oeis4.)