OFFSET
1,1
COMMENTS
Inverse: 3, 1, 12, 10, 8, 19, 2, 4, 21, 119, 86, 166, 17, 154, 160, 47, 192, 6, 83, 214, ..., . - Robert G. Wilson v, Aug 22 2010
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..10000
MATHEMATICA
rd = RealDigits[E, 10, 200][[1]]; lst = {}; f[n_] := Block[{k = 1}, While[a = FromDigits[ Take[ rd, k]]; MemberQ[lst, a] || rd[[k + 1]] == 0, k++ ]; AppendTo[ lst, a]; rd = Drop[rd, k]]; Array[f, 70]; lst (* Robert G. Wilson v, Aug 22 2010 *)
PROG
(Python)
from itertools import islice
from sympy import exp
def diggen():
yield from map(int, str(exp(1).n(10**5))[:-1].replace(".", ""))
def agen(): # generator of terms
g = diggen()
aset, nextd = set(), next(g)
while True:
an, nextd = nextd, next(g)
while an in aset or nextd == 0:
an, nextd = int(str(an) + str(nextd)), next(g)
yield an
aset.add(an)
print(list(islice(agen(), 65))) # Michael S. Branicky, Mar 31 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jason G. Wurtzel, Aug 19 2010
EXTENSIONS
More terms from Robert G. Wilson v, Aug 22 2010
STATUS
approved