OFFSET
1,1
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..1000
MATHEMATICA
pi = ToString[ N[ Pi, 4000]]; pi = StringDrop[pi, {2}]; Table[ StringPosition[pi, ToString[ Prime[ n]], 1][[1, 1]], {n, 60}]
With[{pidg=RealDigits[Pi, 10, 5000[[1]]}, Table[SequencePosition[ pidg, IntegerDigits[ n]][[1, 1]], {n, Prime[ Range[ 60]]}]] (* The program uses the SequencePosition function from Mathematica version 10 *) (* Harvey P. Dale, Jun 01 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Reinhard Zumkeller, Oct 03 2001
STATUS
approved