cp's OEIS Frontend

A097614 In the decimal expansion of Pi, the string "0" is found at position 32 counting from the first digit after the decimal point. The string "32" is found at position 15, the string "15" at position 3, the string "3" at position 9, etc.

%I A097614 #28 Dec 05 2024 09:54:27
%S A097614 0,32,15,3,9,5,4,2,6,7,13,110,174,155,314,2120,5360,24671,119546,
%T A097614 193002,240820,274454,153700,1397287,17916598,26245242,8880928,
%U A097614 7320921,14726415,42969065,35308126,14978764,68756682,300921774
%N A097614 In the decimal expansion of Pi, the string "0" is found at position 32 counting from the first digit after the decimal point. The string "32" is found at position 15, the string "15" at position 3, the string "3" at position 9, etc.
%H A097614 Dave Andersen, <a href="http://www.angio.net/pi/piquery">The Pi-Search Page</a>.
%H A097614 Anders Hellström, <a href="/A097614/a097614_1.spyx.txt">Sage program</a>
%F A097614 a(0) = 0, a(1) = A014777(0) = 32, a(n) = A014777(a(n-1)), for n>1. - _Anders Hellström_, Jan 21 2017
%t A097614 Function[c, NestList[SequencePosition[c, IntegerDigits@ #][[1, 1]] &, 0, 23]]@ Rest@ First@ RealDigits[N[Pi, 10^7]] (* _Michael De Vlieger_, Jan 23 2017, Version 10.1 *)
%o A097614 (PARI) M97614=[]; A097614(n)={while(n > #M97614, M97614=concat(M97614, A014777(A097614(#M97614)))); if(n, M97614[n],0)} \\ _M. F. Hasler_, Jun 21 2022
%o A097614 (Python)
%o A097614 def A097614(n):
%o A097614     while n >= len(A097614.list):
%o A097614         A097614.list.append(A014777(A097614.list[-1]))
%o A097614     return A097614.list[n]
%o A097614 A097614.list = [0] # _M. F. Hasler_, Jun 21 2022
%Y A097614 Cf. A014777.
%K A097614 nonn,base
%O A097614 0,2
%A A097614 _Eric Angelini_, Aug 30 2004
%E A097614 a(33) from _Michael S. Branicky_, Dec 05 2024