Ziffernsumme von 666^47

Aufgabe von Cliff Pickover in Twitter:

Code:

zahl:666^47;
liste:charlist(string(zahl));
ziffern:map(parse_string,liste);
n:length(ziffern);
summe:sum(ziffern[i],i,1,n);

Lösung mit wxMaxima:

Lösung mit Maxima Online:

Lösung mit Sagecell: