Summe einer arithmetischen Folge

Aufgabe:

Berechne die Summe von 4 Zahlen,
von denen die erste 64 5/18 und
jede folgende um 6 3/8 kleiner ist.

Maxima-Code:

erste:64+5/18$
kleiner:6+3/8$
zweite:erste-kleiner$
dritte:zweite-kleiner$
vierte:dritte-kleiner$
Summe:erste+zweite+dritte+vierte$
ganz:floor(Summe)$
bruch:rat(Summe-floor(Summe))$
probe:ganz+bruch$
Ergebnis:[ganz,bruch] /* als gemische Zahl */$
display(Ergebnis)$

Ergebnis=[218,31/36]
sn=n/2*(2*a1+(n-1)*d)

numer:true$
sn=n/2*(2*a1+(n-1)*d),n=4,a1=erste,d=-kleiner;
sn=218.8611111111111