Ja, beschrieben hat er aber Primzahlen. Aber für symetrische Zahlen gibts ne einfache Methode:
Delphi-Quellcode:
uses sysutils;
function IstSymetrisch(z : integer) : boolean;
var
i : integer;
s : string;
begin
result := true;
s := IntToStr(z);
for i := 1 to Length(s) do
result := result and (s[i] = s[length(s) - (i - 1)]);
end;