|
%I #17 Feb 20 2017 23:10:32
%S 4,3,1,3,5,5,1,9,5,4,5,6,5,2,5,4,1,4,6,1,9,1,9,1,4,4,6,4,1,2,5,5,3,1,
%T 6,6,1,3,5,2,3,9,5,4,5,5,4,2,5,3,3,5,6,1,3,5,2,1,5,1,1,5,5,1,4,3,2,6,
%U 3,9,1,3,9,1,6,9,1,3,6,5,5,6,9,1,6,3,4,1,6,1,5,4,1,1,3,3,2,3,9,2,5,6,1,3,1
%N The Pi-th digit of Pi where the digit value of 0 is interpreted as decimal 10.
%C The numbers formed in this sequence are 1,2,3,4,5,6,9. Conjecture: The terms of this sequence are nonrepeating and nonterminating.
%H G. C. Greubel, <a href="/A119505/b119505.txt">Table of n, a(n) for n = 1..5000</a>
%H A. Frank and P. Jacqueroux, <a href="http://www.paulcooijmans.com/oth/intcontest.pdf">International contest</a>, (2001) Sequence 26. [From _R. J. Mathar_, Feb 23 2009]
%F Let the i-th digit of Pi be the digit of Pi in the i-th position. Then the Pi-th digit of Pi is the digit of Pi in the position corresponding to the value of the i-th digit.
%F a(n) = A000796(A010889(9+A000796(n))). - _R. J. Mathar_, Feb 23 2009
%e The digit of Pi in the first position is 3, and the digit of Pi in the third position is 4, the first term in the table.
%t id = RealDigits[Pi, 10, 105][[1]]; id[[0]] = 3; Table[id[[id[[n]] ]], {n, 105}] (* _Robert G. Wilson v_, Mar 17 2009 *)
%o (PARI) g(n)=a=Vec(Str(Pi*10^9990));for(x=1,n,v=eval(a[x]);if(v==0,print1(a[v+10]","),print1(a[v]",")))
%K base,nonn
%O 1,1
%A _Cino Hilliard_, May 27 2006
%E Missing terms a(33), a(55) and a(66) inserted by _R. J. Mathar_, Feb 23 2009
|
