Lösung: fprim:= proc(n::nonnegint) local i: if (n=1) # 1 ist keine Primzahl then return(false) fi; for i from 2 to floor(sqrt(n)) do if (n mod i)=0 then return(false) fi od: return true; end: Kombination:=0: Geburtsjahr:=1987; for i from 1 to floor(sqrt(Geburtsjahr)) do X:=Geburtsjahr – i^2: fprim(X); if (fprim(X)=true) then Kombination:=Kombination+1; fi; od; Kombination;