This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A064467 #13 Jun 03 2025 01:10:14
%S A064467 7,1,5,14,95,111,96,38,17,187,1,47,3,24,120,9,5,220,99,40,300,14,27,
%T A064467 12,13,853,3487,1488,207,363,298,1097,860,526,2607,394,1658,1411,1183,
%U A064467 429,439,729,1945,169,38,705,94,136,485,186,230,1689,1708,1714,1007,614
%N A064467 Primes in Pi: a(n) = first position in decimal expansion of Pi that matches the n-th prime, or 0 if there is no such position.
%H A064467 Robert G. Wilson v, <a href="/A064467/b064467.txt">Table of n, a(n) for n = 1..1000</a>
%e A064467 A000040(4) = 7 = A000796(14) and A000796(i) <> 7 for i < 14, so a(4) = 14.
%t A064467 pi = ToString[ N[ Pi, 4000]]; pi = StringDrop[pi, {2}]; Table[ StringPosition[pi, ToString[ Prime[ n]], 1][[1, 1]], {n, 60}]
%t A064467 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 *)
%Y A064467 Cf. A000040, A000796, A032445.
%K A064467 base,nonn
%O A064467 1,1
%A A064467 _Reinhard Zumkeller_, Oct 03 2001