|
%I #7 Feb 20 2017 23:11:32
%S 3,4,8,4,3,5,3,2,3,3,3,9,5,7,5,3,3,3,9,8,2,3,2,8,3,3,9,3,3,7,5,3,6,3,
%T 9,9,8,4,5,7,4,2,5,3,5,5,3,7,3,4,6,3,9,3,6,5,7,8,5,8,8,3,5,3,3,6,7,9,
%U 4,2,8,6,2,3,9,2,3,6,9,5,5,9,2,3,9,6,3,8,9,3,3,3,8,3,4,4,7,6,2,7,5,9,3,4,8
%N A variation on A119505 that gives a limited digit set {2, 3, 4, 5, 6, 7, 8, 9}.
%H G. C. Greubel, <a href="/A179104/b179104.txt">Table of n, a(n) for n = 1..5000</a>
%F a(n) = A000796(23 + A000796(n))).
%t id=RealDigits[Pi,10,130][[1]]; Table[id[[23+id[[n]]]],{n,105}]
%Y Cf. A119505, A179103.
%K nonn,base
%O 1,1
%A _Roger L. Bagula_ and _Alexander R. Povolotsky_, Jun 29 2010, Jul 05 2010
%E Minor edits by _N. J. A. Sloane_, Jul 05 2010
%E Edited by Associate Eds. of OEIS, Jul 07 2010
|
