A179103 A variation on A119505 that gives a limited digit set {2, 3, 4, 6, 8}.

4, 3, 6, 3, 2, 3, 8, 6, 2, 4, 2, 3, 3, 4, 3, 4, 8, 4, 3, 6, 6, 8, 6, 6, 4, 4, 3, 4, 8, 4, 3, 2, 2, 8, 3, 3, 6, 3, 3, 4, 3, 6, 3, 4, 3, 3, 4, 4, 2, 3, 2, 2, 3, 8, 2, 3, 4, 6, 3, 6, 6, 2, 3, 8, 4, 2, 4, 3, 3, 6, 6, 2, 6, 8, 3, 6, 8, 2, 3, 3, 3, 3, 6, 8, 3, 2, 4, 6, 3, 8, 2, 4, 6, 8, 3, 3, 4, 2, 6, 4, 3, 3, 8, 3, 6

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..5000

Formula

a(n) = A000796(17 + A000796(n))).

Mathematica

id=RealDigits[Pi, 10, 130][[1]]; Table[id[[17+id[[n]]]], {n, 105}]

Crossrefs

Cf. A119505, A179104.

Sequence in context: A153200 A300895 A317698 * A045814 A064218 A228780

Adjacent sequences: A179100 A179101 A179102 * A179104 A179105 A179106

Keyword

nonn,base

Author

Roger L. Bagula and Alexander R. Povolotsky, Jun 29 2010

Extensions

Minor edits by N. J. A. Sloane, Jul 05 2010

Edited by Associate Eds. of OEIS, Jul 07 2010

Status

approved