A080826:= proc(n) option remember: local l, i: if n = 0 then RETURN([1, 2, 2]) else l:=
A080826(n-1):l := subsop(nops(l)=NULL, l):RETURN([op(l), seq(op(
A080826(i)), i=0..n-2)]) fi:end; ds:=s->add(s[j]*10^(nops(s)-j), j=1..nops(s)); seq(ds(
A080826(n)), n=0..7); # C. Ronaldo