programa:=proc(n) local a,b,c,i;
i:=1;
b:=n;
while b>0 do a(i):= b mod 36;
b:=(b-a(i))/36;
i:=i+1;
od;
c:=[seq(a(i-k),k=1..i-1)];
return
c;
end:
Ejecutando tenemos:
>> programa (88374081933261013189);
[18, 23, 15, 10, 21, 18, 11, 18, 21, 18, 13, 10, 13]
>> programa (2287653442455291428759);
[13, 14, 28, 18, 23, 29, 14, 16, 27, 10, 12, 18, 24, 23]