OFFSET
1,2
COMMENTS
From a(16173532) = 123456798 on, the sequence becomes constant.
From a(324) = 2796 + 8 = 2804 on, this sequence becomes equal to sequence A260264, which has the same definition except for starting with a(0)=0.
a(10^k): 1, 81, 870, 8598, 84284, 823330, 8010205, 77737463. - Robert G. Wilson v, Jul 21 2015
LINKS
M. F. Hasler, Table of n, a(n) for n = 1..1000
E. Angelini, Add the biggest absent digit, SeqFan list, Jul 21,2015
MAPLE
a[1]:= 1:
for n from 2 to 100 do
a[n]:= a[n-1] + max({$1..9} minus convert(convert(a[n-1], base, 10), set));
od:
seq(a[n], n=1..100); # Robert Israel, Jul 22 2015
MATHEMATICA
a[n_] := a[n] = a[n - 1] + Max[ Complement[ Range[9], IntegerDigits[ a[n - 1]] ]]; a[1] = 1; Array[a, 55] (* Robert G. Wilson v, Jul 21 2015 *)
PROG
(PARI) {a=1; d=vector(9, d, d); for(n=1, 100, print1(a", "); a+=vecmax(setminus(d, Set(digits(a)))))}
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Eric Angelini and M. F. Hasler, Jul 21 2015
STATUS
approved