Arithmetische Folge, rekursiv definiert

Link zu Maxima Online:  http://maxima-online.org/?inc=r-1143318027

(%i1) "*"/* Rekursive Erstellung einer arithmetischen Folge */;
(%o1)                                  *
(%i2) k:5 /* Anzahl der Folgenglieder */;
(%o2)                                  5
(%i3) d:5 /* Differenz der Folge */;
(%o3)                                  5
(%i4) a[1]:3 /* erstes Folgenglied = Startwert */;
(%o4)                                  3
(%i5) r[n]:=a[n]:a[n-1]+d /* Rekursionsformel */;
(%o5)                        r  := a  : a      + d
                              n     n    n - 1
(%i6) Folge:append([a[1]],makelist(r[n],n,2,k)) /* Folge erzeugen */;
(%o6)                         [3, 8, 13, 18, 23]
(%i7)