|
|
A119505
|
|
The Pi-th digit of Pi where the digit value of 0 is interpreted as decimal 10.
|
|
6
|
|
|
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, 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, 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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The numbers formed in this sequence are 1,2,3,4,5,6,9. Conjecture: The terms of this sequence are nonrepeating and nonterminating.
|
|
LINKS
|
|
|
FORMULA
|
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.
|
|
EXAMPLE
|
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.
|
|
MATHEMATICA
|
id = RealDigits[Pi, 10, 105][[1]]; id[[0]] = 3; Table[id[[id[[n]] ]], {n, 105}] (* Robert G. Wilson v, Mar 17 2009 *)
|
|
PROG
|
(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]", ")))
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Missing terms a(33), a(55) and a(66) inserted by R. J. Mathar, Feb 23 2009
|
|
STATUS
|
approved
|
|
|
|