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)