Goldbachin konjektuuri esitettiin vuonna 1742 ja se kuuluu: kaikki parilliset luvut suuremmat kuin 2 voidaan esittää kahden alkuluvun summana. Testaan lukua 1000000000000000000 freepascal kielisellä ohjelmalla. Ohjelma on pyörinyt nyt kauan aikaa, eikä vieläkään ole löytänyt kahta alkulukua. Yleensä kaksi alkulukua löytyvät pian. Ois se hienoa tehdä historiaa ja löytää vastaesimerkki, mikä kumoaa konjektuurin Vuonna 2013, eräs tutkimus, joka käytti erittäin suurta laskentatehoa, tutki Goldbachin konjektuuria kaikilla parillisilla luvuilla alle 4×10^18 eli välttämättä lukua 1000000000000000000 eli lukua 10E+19 ei olla vielä tutkittu.
program GoldbachExample;
uses
bigdecimalmath;
function IsPrime(n: BigDecimal): Boolean;
var
i, num: BigDecimal;
begin
IsPrime := True;
num := Sqrt(n);
i := 2;
while i <= num do
begin
if (n mod i) = 0 then
begin
IsPrime := False;
Exit;
end;
i := i + 1;
end;
end;
procedure GoldbachSum(n: BigDecimal);
var
x, y: BigDecimal;
found: Boolean;
begin
found := False;
x := 2;
while x <= n div 2 do
begin
if IsPrime(x) then
begin
y := n - x;
if IsPrime(y) then
begin
WriteLn(BigDecimalToStr(n), ' = ', BigDecimalToStr(x), ' + ', BigDecimalToStr(y));
found := True;
Break;
end;
end;
x := x + 1;
end;
if not found then
WriteLn('No Goldbach sum found for ', BigDecimalToStr(n));
end;
var
numberToCheck: BigDecimal;
begin
numberToCheck := 1000000000000000000;
GoldbachSum(numberToCheck);
end.