OFFSET
1,2
COMMENTS
Terms are not permitted to start with a 0, so when this would otherwise occur the 0 must be included in the previous term, for example, a(18). - Sean A. Irvine, Apr 07 2018
REFERENCES
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
LINKS
Sean A. Irvine, Table of n, a(n) for n = 1..250
MATHEMATICA
pi = Rest@ RealDigits[Pi, 10, 2500][[1]]; a[0] = 0; a[n_] := a[n] = Block[{k = 1}, While[ FromDigits[ Take[pi, {1, k}]] < a[n - 1], k++]; While[ pi[[k + 1]] == 0, k++]; b = FromDigits[Take[pi, {1, k}]]; pi = Drop[pi, k]; b]; Array[a, 50] (* Robert G. Wilson v, Apr 08 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane. This sequence appeared in the 1973 "Handbook", but was then dropped from the database. Resubmitted by Victor H. Auerbach (vhambler(AT)voicenet.com). Entry revised by N. J. A. Sloane, Jun 11 2012
EXTENSIONS
a(19)-a(20) corrected and more terms from Sean A. Irvine, Apr 07 2018
STATUS
approved