login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A155912
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
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, 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, 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
OFFSET
0,1
COMMENTS
This defines a constant 3.151934291953631... related to Pi in a peculiar way!
MATHEMATICA
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 *)
CROSSREFS
Cf. A135725.
Cf. A119505. - Robert G. Wilson v, Mar 17 2009
Sequence in context: A302787 A240535 A262397 * A050354 A146434 A126213
KEYWORD
nonn,base
AUTHOR
Dan Brown (ddbhockey(AT)hotmail.com), Jan 30 2009
EXTENSIONS
Edited and extended by Zak Seidov and N. J. A. Sloane, Feb 10 2009
Sequence corrected by N. J. A. Sloane Aug 31 2009 using terms from the b-file
STATUS
approved