OFFSET
0,4
LINKS
Peter J. C. Moses, Table of n, a(n) for n = 0..499
MAPLE
a:= proc(n) option remember; `if`(n<2, n, parse(cat(
sort(convert(a(n-1)+a(n-2), base, 10), `>`)[])))
end:
seq(a(n), n=0..30); # Alois P. Heinz, Aug 31 2022
MATHEMATICA
a[0]:=0; a[1]:=1; a[n_]:=a[n]=FromDigits[Reverse[Sort[IntegerDigits[a[n-1]+a[n-2]]]]]; Map[a, Range[0, 20]] (* Peter J. C. Moses, Feb 09 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev, Feb 09 2014
EXTENSIONS
Correction and extension by Peter J. C. Moses
STATUS
approved