Primtalstvillingar mathematica
Hej, jag ska lösa följande uppgift på mathematica
Jag har ett arbetsblad men där har de endast förklarat hur man hittar ett primtal mellan primtalen a och b, detta enligt följande
storaprimtal = Table[Prime[i], {i, a, b}]; storatvillingar =
Select[storaprimtal, PrimeQ[# + 2] &]
Men jag behöver veta hur man får fram tvillingpar nummer 600. Några tips?
storaprimtal kommer vara en lista över alla primtal med index mellan a och b, så är a och b 0 och 1000000 kommer storaprimtal innehålla de en miljon lägsta primtalen. storatvillingar kommer plocka ut de element x i storatvillingar för vilka även x+2 är ett primtal, så där kommer alla primtalstvillingar bland de en miljon lägsta primtalen. Så du behöver bara slå upp det 600:e elementet i den listan. Och välja ett b som gör att det inte tar för lång tid att köra, men ändå ger dig 600 primtalstvillingar.
haraldfreij skrev:storaprimtal kommer vara en lista över alla primtal med index mellan a och b, så är a och b 0 och 1000000 kommer storaprimtal innehålla de en miljon lägsta primtalen. storatvillingar kommer plocka ut de element x i storatvillingar för vilka även x+2 är ett primtal, så där kommer alla primtalstvillingar bland de en miljon lägsta primtalen. Så du behöver bara slå upp det 600:e elementet i den listan. Och välja ett b som gör att det inte tar för lång tid att köra, men ändå ger dig 600 primtalstvillingar.
Tack för tipset, jag lyckades igår med att just ta fram en lista med över 600 primtalstvillingar men hade problem med hur man hittar till det 600:e elementet? Jag löste det genom att manuellt räkna till par 600 bland primtalstvillingarna- finns det något smidigare sätt?
storatvillingar[[600]]