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)
