login
Let d(i) be the i-th digit of the decimal expansion of Pi = 3.1415926535897932384626433832795..., so that d(0) = 3, d(1) = 1, d(2) = 4, etc. Then a(0) = 3, a(n) = d(d(n)) for n>0.
3

%I #8 Aug 01 2015 10:36:47

%S 3,1,5,1,9,3,4,2,9,1,9,5,3,6,3,1,4,1,5,5,2,4,2,5,1,1,5,1,4,6,3,9,3,4,

%T 5,5,5,1,3,6,1,2,3,1,3,3,1,6,9,1,3,9,5,4,3,3,6,5,3,5,5,9,3,4,1,3,6,5,

%U 1,2,5,3,2,4,5,2,4,3,5,3,3,5,2,4,5,3,1,5,5,4,9,1,5,4,1,1,6,3,2,6,3,5,4,1,5

%N Let d(i) be the i-th digit of the decimal expansion of Pi = 3.1415926535897932384626433832795..., so that d(0) = 3, d(1) = 1, d(2) = 4, etc. Then a(0) = 3, a(n) = d(d(n)) for n>0.

%C This defines a constant 3.151934291953631... related to Pi in a peculiar way!

%H Zak Seidov, <a href="/A155912/b155912.txt">Table of n, a(n) for n = 0..999</a>

%t id = Rest@ RealDigits[ Pi, 10, 105][[1]]; id[[0]] = 3; id[[ id[[ 0]]]] = 3; Table[id[[ id[[ n]]]], {n, 0, 104}] (* _Robert G. Wilson v_, Mar 17 2009 *)

%Y Cf. A135725.

%Y Cf. A119505. - _Robert G. Wilson v_, Mar 17 2009

%K nonn,base

%O 0,1

%A Dan Brown (ddbhockey(AT)hotmail.com), Jan 30 2009

%E Edited and extended by _Zak Seidov_ and _N. J. A. Sloane_, Feb 10 2009

%E Sequence corrected by _N. J. A. Sloane_ Aug 31 2009 using terms from the b-file